diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-09 10:08:07 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-09 10:08:07 +0000 |
| commit | e66aab0978dc4652ee9df3160dcd1f5fbe3bdb79 (patch) | |
| tree | c786de97c582c9782107ab4507cb780e6d4bc590 /src/GF/Command | |
| parent | 1ad7527f657c9b268773d674e0bad1789f96fa8a (diff) | |
changed js and hs file names in gfcc output to expected ones
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 |