diff options
| author | hallgren <hallgren@chalmers.se> | 2014-08-22 00:30:33 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-08-22 00:30:33 +0000 |
| commit | 8dfaf2ef65915e7ac91139155d60df85ed66adbb (patch) | |
| tree | 3f034a8530ca80348d67560093638bd413e2f517 /src/compiler/GF/CompileOne.hs | |
| parent | 21f429caf8c8cb4248457c16abaf0ad4f51c974a (diff) | |
Command line flag -s/-q now silences all warnings
These flags now do what the say.
Diffstat (limited to 'src/compiler/GF/CompileOne.hs')
| -rw-r--r-- | src/compiler/GF/CompileOne.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/CompileOne.hs b/src/compiler/GF/CompileOne.hs index c99430079..5310a7ebb 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -20,7 +20,7 @@ import GF.Grammar.Binary(decodeModule,encodeModule) import GF.Infra.Option import GF.Infra.UseIO(FullPath,IOE,isGFO,gf2gfo,liftIO,ePutStrLn,putPointE,putStrE) -import GF.Infra.CheckM(runCheck) +import GF.Infra.CheckM(runCheck') import GF.Data.Operations(liftErr,(+++)) import GF.System.Directory(doesFileExist,getCurrentDirectory) @@ -67,7 +67,7 @@ reuseGFO opts srcgr file = let sm1 = unsubexpModule sm0 cwd <- getCurrentDirectory (sm,warnings) <- -- putPointE Normal opts "creating indirections" $ - runCheck $ extendModule cwd srcgr sm1 + runCheck' opts $ extendModule cwd srcgr sm1 warnOut opts warnings if flag optTagsOnly opts @@ -114,7 +114,7 @@ compileSourceModule opts cwd mb_gfFile gr = putpp s = if null s then id else putPointE Verbose opts (" "++s++" ") -- * Running a compiler pass, with impedance matching - runPass = runPass' fst fst snd (liftErr . runCheck) + runPass = runPass' fst fst snd (liftErr . runCheck' opts) runPassE = runPass2e liftErr runPassI = runPass2e id id Canon runPass2e lift f = runPass' id f (const "") lift |