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/ShowLinearize.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/GF/GFCC/ShowLinearize.hs') diff --git a/src/GF/GFCC/ShowLinearize.hs b/src/GF/GFCC/ShowLinearize.hs index ec4952cc2..a9365a13b 100644 --- a/src/GF/GFCC/ShowLinearize.hs +++ b/src/GF/GFCC/ShowLinearize.hs @@ -8,8 +8,8 @@ module GF.GFCC.ShowLinearize ( import GF.GFCC.Linearize import GF.GFCC.Macros import GF.GFCC.DataGFCC -import GF.GFCC.AbsGFCC -import GF.GFCC.PrintGFCC ---- +import GF.GFCC.Raw.AbsGFCCRaw (CId (..)) +--import GF.GFCC.PrintGFCC ---- import GF.Data.Operations import Data.List @@ -46,7 +46,7 @@ mkRecord typ trm = case (typ,trm) of (_,W s (R ts)) -> mkRecord typ (R [K (KS (s ++ u)) | K (KS u) <- ts]) (FV ps, C i) -> RCon $ str $ ps !! i (S [], _) -> RS $ realize trm - _ -> RS $ printTree trm + _ -> RS $ show trm ---- printTree trm where str = realize @@ -82,6 +82,6 @@ recLinearize gfcc lang exp = mkRecord typ $ linExp gfcc lang exp where -- show GFCC term termLinearize :: GFCC -> CId -> Exp -> String -termLinearize gfcc lang = printTree . linExp gfcc lang +termLinearize gfcc lang = show . linExp gfcc lang -- cgit v1.2.3