diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-10-12 16:00:37 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-10-12 16:00:37 +0000 |
| commit | 873a160537bf72ead6cfcd6b739d4c7821eb4c85 (patch) | |
| tree | 88a65bddef3808f591015d9a62fa9e39e4427d32 /src/GF/UseGrammar | |
| parent | 96ed0bf4ac7e2898f6f8de82cacecb69d1e94684 (diff) | |
FCat is just a plain integer now
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index aad580a63..5b98936ca 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -299,7 +299,7 @@ customGrammarPrinter = -- grammar conversions: ,(strCI "mcfg", \_ -> Prt.prt . stateMCFG) - ,(strCI "fcfg", \_ -> Prt.prt . stateFCFG) + ,(strCI "fcfg", \_ -> Prt.prt . fst . stateFCFG) ,(strCI "cfg", \_ -> Prt.prt . stateCFG) ,(strCI "pinfo", \_ -> Prt.prt . statePInfo) ,(strCI "abstract", \_ -> Prt.prtAfter "\n" . Cnv.gfc2abstract . stateGrammarLang) |