diff options
| author | peb <unknown> | 2005-02-09 19:45:54 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-09 19:45:54 +0000 |
| commit | 9afbd25b64607e68fe6275fb6b743159001ca984 (patch) | |
| tree | c1c7f0f1bd7f83d721f4e55318160edd1f0eee1b /src/GF/Compile/GrammarToCanon.hs | |
| parent | c467ef8d0323d896778c6ed68ce0b23441f3a65a (diff) | |
"Committed_by_peb"
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 |