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

Setup.hs: comment out debugging code

Browse Source
This commit is contained in:
hallgren
2014-07-28 15:35:22 +00:00
parent 4adb4bab71
commit f07096c409
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Setup.hs
View File

@@ -41,7 +41,7 @@ main = defaultMainWithHooks simpleUserHooks{ preBuild = gfPreBuild
return h return h
gfPostBuild args flags pkg lbi = gfPostBuild args flags pkg lbi =
do writeFile "running" "" do --writeFile "running" ""
buildRGL args flags (pkg,lbi) buildRGL args flags (pkg,lbi)
let gf = default_gf (pkg,lbi) let gf = default_gf (pkg,lbi)
buildWeb gf args flags pkg lbi buildWeb gf args flags pkg lbi
@@ -350,7 +350,7 @@ run_gfc bi args =
gf = default_gf bi gf = default_gf bi
gf_cmdline = gf ++ " " ++ unwords (map showArg args') gf_cmdline = gf ++ " " ++ unwords (map showArg args')
-- putStrLn $ "Running: " ++ gf_cmdline -- putStrLn $ "Running: " ++ gf_cmdline
appendFile "running" (gf_cmdline++"\n") -- appendFile "running" (gf_cmdline++"\n")
e <- rawSystem gf args' e <- rawSystem gf args'
case e of case e of
ExitSuccess -> return () ExitSuccess -> return ()