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/Command/PPrTree.hs | |
| parent | 529374caaa6d451400f57f1ff82106d89d603944 (diff) | |
use ByteString internally in Ident, CId and Label
Diffstat (limited to 'src-3.0/GF/Command/PPrTree.hs')
| -rw-r--r-- | src-3.0/GF/Command/PPrTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Command/PPrTree.hs b/src-3.0/GF/Command/PPrTree.hs index 7372c722d..f80484799 100644 --- a/src-3.0/GF/Command/PPrTree.hs +++ b/src-3.0/GF/Command/PPrTree.hs @@ -21,7 +21,7 @@ tree2exp t = case t of TStr s -> tree (AS s) [] TFloat d -> tree (AF d) [] where - i2i (Ident s) = CId s + i2i (Ident s) = mkCId s prExp :: Exp -> String prExp = printTree . exp2tree @@ -36,4 +36,4 @@ exp2tree (DTr xs at ts) = tabs (map i4i xs) (tapp at (map exp2tree ts)) tapp (AS i) [] = TStr i tapp (AF i) [] = TFloat i tapp (AM i) [] = TId (Ident "?") ---- - i4i (CId s) = Ident s + i4i s = Ident (prCId s) |