GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 10:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

some more printing

Browse Source
This commit is contained in:
aarne
2004-04-19 15:33:45 +00:00
parent 9b47f67467
commit bd9ba5ce39
9 changed files with 62 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Canon/CanonToGrammar.hs
View File

@@ -14,7 +14,12 @@ import Operations
import Monad
-- a decompiler. AR 12/6/2003
-- a decompiler. AR 12/6/2003 -- 19/4/2004
canon2sourceGrammar :: CanonGrammar -> Err G.SourceGrammar
canon2sourceGrammar gr = do
ms' <- mapM canon2sourceModule $ M.modules gr
return $ M.MGrammar ms'
canon2sourceModule :: CanonModule -> Err G.SourceModule
canon2sourceModule (i,mi) = do