diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-21 13:10:54 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-21 13:10:54 +0000 |
| commit | c544ef31823c7d2c28c28cae408cca5d71e6978d (patch) | |
| tree | b9693bc684d1737062e45438cedf7536cf5513d5 /src-3.0/GF/GFCC/Linearize.hs | |
| parent | 529374caaa6d451400f57f1ff82106d89d603944 (diff) | |
use ByteString internally in Ident, CId and Label
Diffstat (limited to 'src-3.0/GF/GFCC/Linearize.hs')
| -rw-r--r-- | src-3.0/GF/GFCC/Linearize.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src-3.0/GF/GFCC/Linearize.hs b/src-3.0/GF/GFCC/Linearize.hs index c66ff93c1..255b141b0 100644 --- a/src-3.0/GF/GFCC/Linearize.hs +++ b/src-3.0/GF/GFCC/Linearize.hs @@ -3,6 +3,7 @@ module GF.GFCC.Linearize where import GF.GFCC.Macros import GF.GFCC.DataGFCC import GF.GFCC.CId +import GF.Infra.PrintClass import Data.Map import Data.List @@ -35,7 +36,7 @@ linExp mcfg lang tree@(DTr xs at trees) = --- [C lst, kks (show i), C size] where --- lst = mod (fromInteger i) 10 ; size = if i < 10 then 0 else 1 AF d -> R [kks (show d)] - AV x -> TM (prCId x) + AV x -> TM (prt x) AM i -> TM (show i) where lin = linExp mcfg lang @@ -44,8 +45,8 @@ linExp mcfg lang tree@(DTr xs at trees) = addB t | Data.List.null xs = t | otherwise = case t of - R ts -> R $ ts ++ (Data.List.map (kks . prCId) xs) - TM s -> R $ t : (Data.List.map (kks . prCId) xs) + R ts -> R $ ts ++ (Data.List.map (kks . prt) xs) + TM s -> R $ t : (Data.List.map (kks . prt) xs) compute :: GFCC -> CId -> [Term] -> Term -> Term compute mcfg lang args = comp where |