From b447cf1a047a6f6e1c4945e809bffa57c88a08af Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 13 Dec 2007 20:19:47 +0000 Subject: new GFCC concrete syntax in place everywhere --- src/GF/GFCC/Linearize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/GFCC/Linearize.hs') diff --git a/src/GF/GFCC/Linearize.hs b/src/GF/GFCC/Linearize.hs index 7147afdcf..9618c33e6 100644 --- a/src/GF/GFCC/Linearize.hs +++ b/src/GF/GFCC/Linearize.hs @@ -2,7 +2,7 @@ module GF.GFCC.Linearize where import GF.GFCC.Macros import GF.GFCC.DataGFCC -import GF.GFCC.AbsGFCC +import GF.GFCC.Raw.AbsGFCCRaw (CId (..)) import Data.Map import Data.List @@ -56,7 +56,7 @@ compute mcfg lang args = comp where idx xs i = if i > length xs - 1 then trace - ("too large " ++ show i ++ " for\n" ++ unlines (lmap prt xs) ++ "\n") TM + ("too large " ++ show i ++ " for\n" ++ unlines (lmap show xs) ++ "\n") TM else xs !! i proj r p = case (r,p) of -- cgit v1.2.3