msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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
gfPostBuild args flags pkg lbi =
do writeFile "running" ""
do --writeFile "running" ""
buildRGL args flags (pkg,lbi)
let gf = default_gf (pkg,lbi)
buildWeb gf args flags pkg lbi
@@ -350,7 +350,7 @@ run_gfc bi args =
gf = default_gf bi
gf_cmdline = gf ++ " " ++ unwords (map showArg args')
-- putStrLn $ "Running: " ++ gf_cmdline
appendFile "running" (gf_cmdline++"\n")
-- appendFile "running" (gf_cmdline++"\n")
e <- rawSystem gf args'
case e of
ExitSuccess -> return ()