bugfix in the grammar splitter

2013-12-10 12:31:40 +00:00
parent faed1348b1
commit 0f352ba1d5
1 changed files with 1 additions and 1 deletions
--- 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)]