diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
| commit | b447cf1a047a6f6e1c4945e809bffa57c88a08af (patch) | |
| tree | 4b6792997f34b764796a8b787b3e8a9638c6ff49 /src/GF/GFCC/ShowLinearize.hs | |
| parent | a311dda5392ac1d019bc4f60bd94b37df01a1411 (diff) | |
new GFCC concrete syntax in place everywhere
Diffstat (limited to 'src/GF/GFCC/ShowLinearize.hs')
| -rw-r--r-- | src/GF/GFCC/ShowLinearize.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |