diff options
Diffstat (limited to 'src/compiler/GF/CompileOne.hs')
| -rw-r--r-- | src/compiler/GF/CompileOne.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/compiler/GF/CompileOne.hs b/src/compiler/GF/CompileOne.hs index 318d0d3a3..e873d6119 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -21,7 +21,7 @@ import GF.Grammar.Binary(decodeModule,encodeModule) import GF.Infra.Option import GF.Infra.UseIO(FullPath,IOE,isGFO,gf2gfo,MonadIO(..),Output(..),putPointE) import GF.Infra.CheckM(runCheck') -import GF.Data.Operations(ErrorMonad,liftErr,(+++),done) +import GF.Data.Operations(ErrorMonad,liftErr,(+++)) import GF.System.Directory(doesFileExist,getCurrentDirectory,renameFile) import System.FilePath(makeRelative) @@ -66,7 +66,7 @@ reuseGFO opts srcgr file = if flag optTagsOnly opts then writeTags opts srcgr (gf2gftags opts file) sm1 - else done + else return () return (Just file,sm) @@ -137,7 +137,7 @@ compileSourceModule opts cwd mb_gfFile gr = idump opts pass (dump out) return (ret out) - maybeM f = maybe done f + maybeM f = maybe (return ()) f --writeGFO :: Options -> InitPath -> FilePath -> SourceModule -> IOE () @@ -158,12 +158,12 @@ writeGFO opts cwd file mo = --intermOut :: Options -> Dump -> Doc -> IOE () intermOut opts d doc | dump opts d = ePutStrLn (render ("\n\n--#" <+> show d $$ doc)) - | otherwise = done + | otherwise = return () idump opts pass = intermOut opts (Dump pass) . ppModule Internal warnOut opts warnings - | null warnings = done + | null warnings = return () | otherwise = do t <- getTermColors ePutStr (blueFg t);ePutStr ws;ePutStrLn (restore t) where |