diff options
Diffstat (limited to 'src/GF/GFCC')
| -rw-r--r-- | src/GF/GFCC/Linearize.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/GFCC/Linearize.hs b/src/GF/GFCC/Linearize.hs index 572b8fe08..b7b419f7d 100644 --- a/src/GF/GFCC/Linearize.hs +++ b/src/GF/GFCC/Linearize.hs @@ -6,6 +6,8 @@ import GF.GFCC.AbsGFCC import Data.Map import Data.List +import Debug.Trace + -- linearization and computation of concrete GFCC Terms linearize :: GFCC -> CId -> Exp -> String @@ -53,7 +55,7 @@ compute mcfg lang args = comp where look = lookOper mcfg lang idx xs i = if i > length xs - 1 - then error + then trace ("too large " ++ show i ++ " for\n" ++ unlines (lmap prt xs) ++ "\n") TM else xs !! i @@ -71,7 +73,7 @@ compute mcfg lang args = comp where C i -> i RP p _ -> getIndex p ---- DEPREC TM -> 0 -- default value for parameter - _ -> error ("ERROR in grammar compiler: index from " ++ show t) 0 + _ -> trace ("ERROR in grammar compiler: index from " ++ show t) 666 getField t i = case t of R rs -> idx rs i |