From 393dde2eb93a975442697c177dbb161e4300bea0 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 15 Oct 2014 20:42:36 +0000
Subject: Fixes for the haddock documentation

---
 src/compiler/GF/CompileOne.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/compiler/GF/CompileOne.hs')

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 ++ "... ")
-- 
cgit v1.2.3