gfcc compilation: know bugs fixed

1 files changed, 5 insertions, 4 deletions

diff --git a/src/GF/Canon/GFCC/DataGFCC.hs b/src/GF/Canon/GFCC/DataGFCC.hs
index 09b0acbf5..8588d2f9b 100644
--- a/src/GF/Canon/GFCC/DataGFCC.hs
+++ b/src/GF/Canon/GFCC/DataGFCC.hs
@@ -97,20 +97,21 @@ compute mcfg lang args = comp where
   look = lookLin mcfg lang
   idx xs i = 
       if length xs <= i  ---- debug
-      then K (KS ("ERROR" ++ show xs ++ " !! " ++ show i)) else
-      xs !! i 
+      then trace ("ERROR in compiler producing " ++ show xs ++ " !! " ++ show i)
+                 (last xs)
+      else xs !! i 
 
   getIndex t0 t =  case t of
       C i -> fromInteger i
       RP p _ -> getIndex t0 $ p
-      _ -> error $ "compiler error: index from " ++ show t
+      _ -> trace ("ERROR in compiler: index from " ++ show t) 0
       ---- TODO: this is workaround for a compiler bug
       -- R (u : _) -> trace (show t ++ " IN\n" ++ show t0) $ getIndex t0 u
 
   getFields t = case t of
       R rs -> rs
       RP _ r -> getFields r
-      _ -> error $ "compiler error: fields from " ++ show t
+      _ -> trace ("ERROR in compiler: fields from " ++ show t) [t]
 
 mkGFCC :: Grammar -> GFCC
 mkGFCC (Grm (Hdr a cs) ab@(Abs funs) ccs) = GFCC {