From e2e943eabcca9d80b1316942e4480650a393d910 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 7 Apr 2015 14:51:52 +0000
Subject: [PATCH] GF.Compile.ConcreteToHaskell: some documentation

---
 src/compiler/GF/Compile/ConcreteToHaskell.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/compiler/GF/Compile/ConcreteToHaskell.hs b/src/compiler/GF/Compile/ConcreteToHaskell.hs
index a2106a2f4..0b55a959d 100644
--- a/src/compiler/GF/Compile/ConcreteToHaskell.hs
+++ b/src/compiler/GF/Compile/ConcreteToHaskell.hs
@@ -1,4 +1,5 @@
-module GF.Compile.ConcreteToHaskell where
+-- | Translate concrete syntax to Haskell
+module GF.Compile.ConcreteToHaskell(concretes2haskell,concrete2haskell) where
 import Data.List(sort,sortBy)
 import Data.Function(on)
 import qualified Data.Map as M
@@ -18,14 +19,19 @@ import GF.Infra.Option
 import GF.Compile.Compute.ConcreteNew(normalForm,resourceValues)
 import Debug.Trace
 
+-- | Generate Haskell code for the all concrete syntaxes associated with
+-- the named abstract syntax in given the grammar.
 concretes2haskell opts absname gr =
   [(cncname,concrete2haskell opts gr cenv absname cnc cncmod)
      | let cenv = resourceValues opts gr,
        cnc<-allConcretes gr absname,
-       let cncname = render cnc ++ ".hs"
+       let cncname = render cnc ++ ".hs" :: FilePath
            Ok cncmod = lookupModule gr cnc
   ]
 
+-- | Generate Haskell code for the given concrete module.
+-- The only options that make a difference are
+-- @-haskell=noprefix@ and @-haskell=variants@.
 concrete2haskell opts gr cenv absname cnc modinfo =
     renderStyle style{lineLength=80,ribbonsPerLine=1} $
       haskPreamble va absname cnc $$ "" $$