From 0f352ba1d55648155b7de7314da5100b470d4539 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 10 Dec 2013 12:31:40 +0000
Subject: [PATCH] bugfix in the grammar splitter

---
 src/runtime/haskell/PGF/Binary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index becf5b9de..e2403809e 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -54,7 +54,7 @@ putSplitAbs :: PGF -> Put
 putSplitAbs pgf = do
   putWord16be pgfMajorVersion
   putWord16be pgfMinorVersion
-  put (Map.insert (mkCId "index") (LStr "true") (gflags pgf))
+  put (Map.insert (mkCId "split") (LStr "true") (gflags pgf))
   put (absname pgf, abstract pgf)
   put [(name,cflags cnc) | (name,cnc) <- Map.toList (concretes pgf)]