msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Some printing / verbosity fixes.

Browse Source
This commit is contained in:
bjorn
2008-05-28 15:56:37 +00:00
parent a5cf2afccf
commit 2fcc77a884
4 changed files with 55 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src-3.0/GF/Compile/Optimize.hs
View File

@@ -110,7 +110,7 @@ evalCncInfo ::
Options -> SourceGrammar -> Ident -> Ident -> (Ident,Info) -> Err (Ident,Info)
evalCncInfo opts gr cnc abs (c,info) = do
seq (prtIf (beVerbose opts) c) $ return ()
seq (prtIf (verbAtLeast opts Verbose) c) $ return ()
errIn ("optimizing" +++ prt c) $ case info of