diff options
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 0a6572134..8443ec932 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -105,7 +105,7 @@ compileSourceModule opts cwd mb_gfFile gr = -- Apply to complete modules when not generating tags backend mo3 = - do mo4 <- runPassE id Optimize "optimizing" $ optimizeModule opts gr mo3 + do mo4 <- runPassE Optimize "optimizing" $ optimizeModule opts gr mo3 if isModCnc (snd mo4) && flag optPMCFG opts then runPassI "generating PMCFG" $ generatePMCFG opts gr mb_gfFile mo4 else runPassI "" $ return mo4 @@ -126,9 +126,9 @@ compileSourceModule opts cwd mb_gfFile gr = -- * Running a compiler pass, with impedance matching runPass = runPass' fst fst snd (liftErr . runCheck' opts) - runPassE = runPass2e liftErr + runPassE = runPass2e liftErr id runPassI = runPass2e id id Canon - runPass2e lift f = runPass' id f (const "") lift + runPass2e lift dump = runPass' id dump (const "") lift runPass' ret dump warn lift pass pp m = do out <- putpp pp $ lift m |