diff options
Diffstat (limited to 'src/GF/Command')
| -rw-r--r-- | src/GF/Command/PPrTree.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Command/PPrTree.hs b/src/GF/Command/PPrTree.hs index aa383b18b..7e1755bbc 100644 --- a/src/GF/Command/PPrTree.hs +++ b/src/GF/Command/PPrTree.hs @@ -18,7 +18,7 @@ tree2exp t = case t of TId c -> tree (AC (i2i c)) [] TInt i -> tree (AI i) [] TStr s -> tree (AS s) [] --- TFloat d -> + TFloat d -> tree (AF d) [] where i2i (Ident s) = CId s @@ -32,4 +32,7 @@ exp2tree (DTr xs at ts) = tabs (map i4i xs) (tapp at (map exp2tree ts)) tapp (AC f) [] = TId (i4i f) tapp (AC f) vs = TApp (i4i f) vs tapp (AI i) [] = TInt i + tapp (AS i) [] = TStr i + tapp (AF i) [] = TFloat i + tapp (AM i) [] = TId (Ident "?") ---- i4i (CId s) = Ident s |