From daee08f360d794889543be8397a04b1bd606f0c3 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 28 Jul 2014 15:35:22 +0000
Subject: [PATCH] Setup.hs: comment out debugging code

---
 Setup.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Setup.hs b/Setup.hs
index 42f8b182b..996e10a85 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -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 ()