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

silence in Compile in phrasebook

Browse Source
This commit is contained in:
aarne
2010-08-24 14:17:09 +00:00
parent bf6857f43e
commit acb838eb79
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
examples/phrasebook/Compile.hs
View File

@@ -29,10 +29,13 @@ main = do
else return () else return ()
case opts of case opts of
_ | elem "-make" opts || elem "-link" opts -> do _ | elem "-make" opts || elem "-link" opts -> do
system $ "gf -make " ++ unwords (map (++ ".pgf") modus) system $ "gf -make -s " ++ unwords (map (++ ".pgf") modus)
return () return ()
_ -> return () _ -> return ()
compileOne modu = system $ "gf -make -name=" ++ modu ++ " " ++ modu ++ ".gf" compileOne modu = do
let comm = "gf -make -s -name=" ++ modu ++ " " ++ modu ++ ".gf"
putStrLn comm
system comm
mkFile la = if length la == 3 then mainmodu ++ la else la mkFile la = if length la == 3 then mainmodu ++ la else la