diff options
Diffstat (limited to 'src/GF/GFCC/CheckGFCC.hs')
| -rw-r--r-- | src/GF/GFCC/CheckGFCC.hs | 8 |
1 files changed, 7 insertions, 1 deletions
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) |