names resolve in new GFtoGFCC

2007-12-08 10:37:49 +00:00
parent 84c9f3f483
commit 5aca148d20
3 changed files with 65 additions and 47 deletions
--- a/src/GF/Devel/Grammar/Construct.hs
+++ b/src/GF/Devel/Grammar/Construct.hs
@@ -26,6 +26,9 @@ listModules = assocs.gfmodules
 addModule :: Ident -> Module -> GF -> GF
 addModule c m gf = gf {gfmodules = insert c m (gfmodules gf)}

+gfModules :: [(Ident,Module)] -> GF
+gfModules ms = emptyGF {gfmodules = fromList ms}
+
 -- abstractions on Module

 emptyModule :: Ident -> Module