diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-05 18:59:14 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-05 18:59:14 +0000 |
| commit | fe863958533cd905939241e6fa50af439058cf5a (patch) | |
| tree | c8254e5797d795d733585d0d82e85d4d4a1fa9dd /src/GF/Devel/Compile/Compile.hs | |
| parent | 674b4765e653d91c8c900da1263df8c0f4d767ad (diff) | |
debugging testgf3
Diffstat (limited to 'src/GF/Devel/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Devel/Compile/Compile.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/GF/Devel/Compile/Compile.hs b/src/GF/Devel/Compile/Compile.hs index b636f0fa7..e0de193c1 100644 --- a/src/GF/Devel/Compile/Compile.hs +++ b/src/GF/Devel/Compile/Compile.hs @@ -34,9 +34,12 @@ batchCompile opts files = do -- to output an intermediate stage intermOut :: Options -> Option -> String -> IOE () -intermOut opts opt s = if oElem opt opts then - ioeIO (putStrLn ("\n\n--#" +++ prOpt opt) >> putStrLn s) - else return () +intermOut opts opt s = + if oElem opt opts || oElem (iOpt "show_all") opts + then + ioeIO (putStrLn ("\n\n--#" +++ prOpt opt) >> putStrLn s) + else + return () prMod :: SourceModule -> String prMod = prModule |