From af2755eebe8baa2c283f7732beec5b230c301760 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 13 Dec 2007 10:12:00 +0000
Subject: prelude sources to lib/src; present in StructuralEng; refactored
 checkGFCC

---
 src/GF/Command/Importing.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/GF/Command/Importing.hs')

diff --git a/src/GF/Command/Importing.hs b/src/GF/Command/Importing.hs
index dc8255ad2..8a8cd55bf 100644
--- a/src/GF/Command/Importing.hs
+++ b/src/GF/Command/Importing.hs
@@ -22,9 +22,7 @@ importGrammar mgr0 opts files = do
       gr <- batchCompile opts files
       let name = justModuleName (last files)
       let (abs,gfcc0) = mkCanon2gfcc opts name gr
-      (gfcc1,b) <- checkGFCC gfcc0
-      if b then return () else do
-        putStrLn "Corrupted GFCC"
+      gfcc1 <- checkGFCCio gfcc0
       return $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1
     "gfcc" -> 
       mapM file2gfcc files >>= return . foldl1 unionGFCC
-- 
cgit v1.2.3