-s

2004-08-13 20:46:54 +00:00
parent 18be5298f0
commit 71cef35bd7
6 changed files with 11 additions and 8 deletions
--- a/src/GF/Infra/UseIO.hs
+++ b/src/GF/Infra/UseIO.hs
@@ -208,7 +208,7 @@ putStrE = ioeIO . putStrFlush

 putPointE :: Options -> String -> IOE a -> IOE a
 putPointE opts msg act = do
-  let ve x = if oElem beVerbose opts then x else return ()
+  let ve x = if oElem beSilent opts then return () else x
  ve $ ioeIO $ putStrFlush msg
  a <- act
 ---  ve $ ioeIO $ putShow' id a --- replace by a statistics command