GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix in the grammar splitter

Browse Source
This commit is contained in:
kr.angelov
2013-12-10 12:31:40 +00:00
parent faed1348b1
commit 0f352ba1d5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Binary.hs
View File

@@ -54,7 +54,7 @@ putSplitAbs :: PGF -> Put
putSplitAbs pgf = do putSplitAbs pgf = do
putWord16be pgfMajorVersion putWord16be pgfMajorVersion
putWord16be pgfMinorVersion 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 (absname pgf, abstract pgf)
put [(name,cflags cnc) | (name,cnc) <- Map.toList (concretes pgf)] put [(name,cflags cnc) | (name,cnc) <- Map.toList (concretes pgf)]