diff options
| author | hallgren <hallgren@chalmers.se> | 2014-12-08 14:48:14 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-12-08 14:48:14 +0000 |
| commit | 676b0d6e8192c3cab92ca4cb8247cba00533402d (patch) | |
| tree | 60a6c28d2c98ef2731099b2de67f14a3fd574df1 /src/compiler/GF/CompileOne.hs | |
| parent | 55e2b55e60d588174e7339f9d0ee23da3db97a3e (diff) | |
Haddock documentation: expose exportPGF, some other small improvements
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 |