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

fix the PGF generation when it is used from the shell

Browse Source
This commit is contained in:
krasimir
2010-01-26 14:15:37 +00:00
parent 9b362ff231
commit bc6323df4c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GrammarToPGF.hs
View File

@@ -52,7 +52,7 @@ canon2pgf opts pars cgr@(M.MGrammar ((a,abm):cms)) = do
then putStrLn (render (vcat (map (ppModule Qualified) (M.modules cgr)))) then putStrLn (render (vcat (map (ppModule Qualified) (M.modules cgr))))
else return () else return ()
cncs <- sequence [mkConcr lang (i2i lang) mo | (lang,mo) <- cms] cncs <- sequence [mkConcr lang (i2i lang) mo | (lang,mo) <- cms]
return (D.PGF an cns gflags abs (Map.fromList cncs)) return $ updateProductionIndices (D.PGF an cns gflags abs (Map.fromList cncs))
where where
-- abstract -- abstract
an = (i2i a) an = (i2i a)