diff options
| author | kr_angelov <kr_angelov@gmail.com> | 2006-12-28 16:45:57 +0000 |
|---|---|---|
| committer | kr_angelov <kr_angelov@gmail.com> | 2006-12-28 16:45:57 +0000 |
| commit | 3f183ce821b3f0188dbe61738fb9b63c6423f655 (patch) | |
| tree | b532f63fc0cacd035d8e8fde4ffe11dd3df158c0 /src/GF/FCFG | |
| parent | 041c00abf3bfbbc770d52b23f9e27598f25f1f63 (diff) | |
GFCC to FCFG conversion
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 |