From ed5a85ce1d48e8a8c4c151c19b5dc3adf55ce4cb Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 13 Dec 2007 22:05:14 +0000 Subject: removed gfcc via gfc everywhere; workaround for russian in present --- src/GF/GFCC/CheckGFCC.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/GF/GFCC/CheckGFCC.hs') diff --git a/src/GF/GFCC/CheckGFCC.hs b/src/GF/GFCC/CheckGFCC.hs index f3098d02c..065e2cb54 100644 --- a/src/GF/GFCC/CheckGFCC.hs +++ b/src/GF/GFCC/CheckGFCC.hs @@ -1,4 +1,4 @@ -module GF.GFCC.CheckGFCC (checkGFCC, checkGFCCio) where +module GF.GFCC.CheckGFCC (checkGFCC, checkGFCCio, checkGFCCmaybe) where import GF.GFCC.Raw.AbsGFCCRaw (CId (..)) import GF.GFCC.Macros @@ -18,6 +18,12 @@ checkGFCCio gfcc = case checkGFCC gfcc of putStrLn s error "building GFCC failed" +---- needed in old Custom +checkGFCCmaybe :: GFCC -> Maybe GFCC +checkGFCCmaybe gfcc = case checkGFCC gfcc of + Ok (gc,b) -> return gc + Bad s -> Nothing + checkGFCC :: GFCC -> Err (GFCC,Bool) checkGFCC gfcc = do (cs,bs) <- mapM (checkConcrete gfcc) -- cgit v1.2.3