From 676b0d6e8192c3cab92ca4cb8247cba00533402d Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 8 Dec 2014 14:48:14 +0000 Subject: Haddock documentation: expose exportPGF, some other small improvements --- src/compiler/GF/CompileOne.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/compiler/GF/CompileOne.hs') 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 -- cgit v1.2.3