diff options
| author | hallgren <hallgren@chalmers.se> | 2014-10-15 20:42:36 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-10-15 20:42:36 +0000 |
| commit | 393dde2eb93a975442697c177dbb161e4300bea0 (patch) | |
| tree | c1a9b693e6ffcd154eb1105ba973317638073dd9 /src/compiler/GF/CompileOne.hs | |
| parent | 8381c7b0c05c7086325c7adcebc1cfe7fffd6ad4 (diff) | |
Fixes for the haddock documentation
Diffstat (limited to 'src/compiler/GF/CompileOne.hs')
| -rw-r--r-- | src/compiler/GF/CompileOne.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/compiler/GF/CompileOne.hs b/src/compiler/GF/CompileOne.hs index f182f66d0..1d008326c 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -30,9 +30,9 @@ import Control.Monad((<=<)) type OneOutput = (Maybe FullPath,CompiledModule) type CompiledModule = SourceModule +--compileOne :: Options -> SourceGrammar -> FullPath -> IOE OneOutput -- | Compile a given source file (or just load a .gfo file), -- given a 'SourceGrammar' containing everything it depends on. ---compileOne :: Options -> SourceGrammar -> FullPath -> IOE OneOutput compileOne opts srcgr file = if isGFO file then reuseGFO opts srcgr file @@ -40,8 +40,8 @@ compileOne opts srcgr file = if b1 then useTheSource opts srcgr file else reuseGFO opts srcgr (gf2gfo opts file) --- | For compiled gf, read the file and update environment --- also undo common subexp optimization, to enable normal computations +-- | For compiled gf, read the file and update environment. +-- Also undo common subexp optimization, to enable normal computations. reuseGFO opts srcgr file = do sm00 <- putPointE Verbose opts ("+ reading" +++ file) $ decodeModule file @@ -61,8 +61,8 @@ reuseGFO opts srcgr file = return (Just file,sm) --- | For gf source, do full compilation and generate code --useTheSource :: Options -> SourceGrammar -> FullPath -> IOE OneOutput +-- | For gf source, do full compilation and generate code. useTheSource opts srcgr file = do sm <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") |