diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-24 08:58:46 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-24 08:58:46 +0000 |
| commit | 9222e4d34c00cffb47a581693a17403e1e4cc3d2 (patch) | |
| tree | a5e0e68f1b8ee9aa7b24f78e92f0b25d8dbf294e /src/GF/Canon/GFCC/GFCCAPI.hs | |
| parent | b10916944148f409a68f6eac13d9b4db49d6382f (diff) | |
Update GFCCAPI after the removal of FTypes and the FCFG lexer
Diffstat (limited to 'src/GF/Canon/GFCC/GFCCAPI.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/GFCCAPI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Canon/GFCC/GFCCAPI.hs b/src/GF/Canon/GFCC/GFCCAPI.hs index 9315ae0fc..f04808037 100644 --- a/src/GF/Canon/GFCC/GFCCAPI.hs +++ b/src/GF/Canon/GFCC/GFCCAPI.hs @@ -74,7 +74,7 @@ startCat :: MultiGrammar -> Category file2grammar f = do gfcc <- file2gfcc f let fcfgs = convertGrammar gfcc - return (MultiGrammar gfcc [(lang, buildPInfo fcfg) | (CId lang,fcfg) <- fcfgs]) + return (MultiGrammar gfcc [(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- fcfgs]) file2gfcc f = readFileIf f >>= err (error "no parse") (return . mkGFCC) . pGrammar . myLexer |