diff options
Diffstat (limited to 'src/GF/FCFG')
| -rw-r--r-- | src/GF/FCFG/ToFCFG.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |