diff options
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index c090f1622..08542ec16 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -32,15 +32,12 @@ import Monad -- compilation of optimized grammars to canonical GF. AR 5/10/2001 -- 12/5/2003 --- This is the top-level function printing a gfc file - +-- | This is the top-level function printing a gfc file showGFC :: SourceGrammar -> String showGFC = err id id . liftM (P.printTree . grammar2canon) . redGrammar --- any grammar, first trying without dependent types - +-- | any grammar, first trying without dependent types -- abstract syntax without dependent types - redGrammar :: SourceGrammar -> Err C.CanonGrammar redGrammar (MGrammar gr) = liftM MGrammar $ mapM redModInfo $ filter active gr where active (_,m) = case typeOfModule m of |