From 3f183ce821b3f0188dbe61738fb9b63c6423f655 Mon Sep 17 00:00:00 2001 From: kr_angelov Date: Thu, 28 Dec 2006 16:45:57 +0000 Subject: GFCC to FCFG conversion --- src/GF/FCFG/ToFCFG.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/FCFG') diff --git a/src/GF/FCFG/ToFCFG.hs b/src/GF/FCFG/ToFCFG.hs index 7e19fefc5..a5ecda214 100644 --- a/src/GF/FCFG/ToFCFG.hs +++ b/src/GF/FCFG/ToFCFG.hs @@ -30,8 +30,8 @@ import GF.Infra.Print -- this is the main function used -printFGrammar :: FCFGrammar FCat Name Token -> String -printFGrammar = printTree . fgrammar +printFGrammar :: FCFGrammar FCat FName Token -> String +printFGrammar = undefined {- printTree . fgrammar fgrammar :: FCFGrammar FCat Name Token -> F.FGrammar fgrammar = F.FGr . map frule @@ -98,3 +98,4 @@ ident :: Ident -> F.Ident ident = F.Ident . prIdent --- is information lost? constr (C.CIQ m c) = F.CIQ (ident m) (ident c) +-} \ No newline at end of file -- cgit v1.2.3