Karin C's example

1 files changed, 3 insertions, 2 deletions

diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index 8057904a8..b320a46f1 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -266,10 +266,11 @@ generateModuleCode opts path minfo@(name,info) = do
       code <- return $ MkGFC.prCanonModInfo minfo'
       return (gfcFile pname, code)
   if isCompilable info && emit && nomulti 
-     then ioeIO $ writeFile file out >> putStr ("  wrote file" +++ file)
-     else ioeIO $ putStrFlush $ "no need to save module" +++ prt name
+     then ioeIO (writeFile file out) >> ioeIOIf (putStr ("  wrote file" +++ file))
+     else ioeIOIf $ putStrFlush $ "no need to save module" +++ prt name
   return minfo'
  where 
+   ioeIOIf = if oElem beSilent opts then (const (return ())) else ioeIO
    emitsGFR m = isModRes m && isCompilable info
      ---- isModRes m || (isModCnc m && mstatus m == MSIncomplete)
    isCompilable mi = case mi of