From 9afbd25b64607e68fe6275fb6b743159001ca984 Mon Sep 17 00:00:00 2001 From: peb Date: Wed, 9 Feb 2005 19:45:54 +0000 Subject: "Committed_by_peb" --- src/GF/Compile/GrammarToCanon.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/GF/Compile/GrammarToCanon.hs') 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 -- cgit v1.2.3