diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 5 |
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 |