removed gfcc via gfc everywhere; workaround for russian in present

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)