"Committed_by_peb"

1 files changed, 3 insertions, 6 deletions

diff --git a/src/GF/Compile/Update.hs b/src/GF/Compile/Update.hs
index e3c4df4bb..289e516b8 100644
--- a/src/GF/Compile/Update.hs
+++ b/src/GF/Compile/Update.hs
@@ -24,8 +24,7 @@ import Operations
 import List
 import Monad
 
--- update a resource module by adding a new or changing an old definition
-
+-- | update a resource module by adding a new or changing an old definition
 updateRes :: SourceGrammar -> Ident -> Ident -> Info -> SourceGrammar
 updateRes gr@(MGrammar ms) m i info = MGrammar $ map upd ms where
   upd (n,mod) 
@@ -34,16 +33,14 @@ updateRes gr@(MGrammar ms) m i info = MGrammar $ map upd ms where
        ModMod r -> (m,ModMod $ updateModule r i info)
        _ -> (n,mod) --- no error msg
 
--- combine a list of definitions into a balanced binary search tree
-
+-- | combine a list of definitions into a balanced binary search tree
 buildAnyTree :: [(Ident,Info)] -> Err (BinTree (Ident, Info))
 buildAnyTree ias = do
   ias' <- combineAnyInfos ias
   return $ buildTree ias'
 
 
--- unifying information for abstract, resource, and concrete
-
+-- | unifying information for abstract, resource, and concrete
 combineAnyInfos :: [(Ident,Info)] -> Err [(Ident,Info)]
 combineAnyInfos = combineInfos unifyAnyInfo