diff options
| author | aarne <unknown> | 2004-04-19 15:33:45 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-19 15:33:45 +0000 |
| commit | 2e0c510285ac1cabefea0ab68ffb1215d7297578 (patch) | |
| tree | 805df5361f07e0ff22c9eb69c0daf9abb6353aba /src/GF/Canon | |
| parent | fa07ada6ab11f8e0820fe075ce58d8ca700e13e3 (diff) | |
some more printing
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/CanonToGrammar.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs index 93dac97f6..ece71c517 100644 --- a/src/GF/Canon/CanonToGrammar.hs +++ b/src/GF/Canon/CanonToGrammar.hs @@ -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 |