From e66aab0978dc4652ee9df3160dcd1f5fbe3bdb79 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Nov 2007 10:08:07 +0000 Subject: changed js and hs file names in gfcc output to expected ones --- src/GF/Command/PPrTree.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/GF/Command/PPrTree.hs') 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 -- cgit v1.2.3