Print gf commands in Make.hs for debugging purposes.

2008-08-14 15:25:05 +00:00
parent 0caebe9092
commit ca5a30b3f7
1 changed files with 3 additions and 1 deletions
--- a/lib/resource/Make.hs
+++ b/lib/resource/Make.hs
@@ -121,7 +121,9 @@ gfc pres ppath file = do

 gf comm file = do
  putStrLn $ "Reading " ++ file
-  system $ "echo \"" ++ comm ++ "\" | gf -s " ++ file
+  let cmd = "echo \"" ++ comm ++ "\" | gf -s " ++ file
+  putStrLn cmd
+  system cmd

 treeb abstr ls = "rf -lines -tree -file=" ++ treebankExx ++ 
        " | l -treebank " ++ unlexer abstr ls ++ " | wf -file=" ++ treebankResults