From 2a83f299b4fe25ee876fdd051de7f8980b216ab4 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 5 Nov 2007 13:48:51 +0000 Subject: unionGFCC, to put together GFCC grs with same abstract --- src/GF/GFCC/API.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/GFCC/API.hs') diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 39f44e2a3..a35faacb5 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -77,7 +77,8 @@ startCat :: MultiGrammar -> Category file2grammar f = do gfcc <- file2gfcc f let fcfgs = convertGrammar gfcc - return (MultiGrammar gfcc [(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- fcfgs]) + return (MultiGrammar gfcc + [(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- fcfgs]) file2gfcc f = readFileIf f >>= err (error) (return . mkGFCC) . pGrammar . myLexer -- cgit v1.2.3