diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-12-10 12:31:40 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-12-10 12:31:40 +0000 |
| commit | 4f0246cc1200fd52282d1e29c33fa63d3425e822 (patch) | |
| tree | 632e7b635be06e054f7eb9d0601358403ddb53df | |
| parent | 87fffffbdf41eaf0f269bd65d8380b80d899bec8 (diff) | |
bugfix in the grammar splitter
| -rw-r--r-- | src/runtime/haskell/PGF/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)]
|