msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugfix in the grammar splitter

Browse Source
This commit is contained in:
kr.angelov
2013-12-10 12:31:40 +00:00
parent 87fffffbdf
commit 4f0246cc12
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)]