removed gfcc via gfc everywhere; workaround for russian in present

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)