msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

changed js and hs file names in gfcc output to expected ones

Browse Source
This commit is contained in:
aarne
2007-11-09 10:08:07 +00:00
parent 1ad7527f65
commit e66aab0978
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Command/PPrTree.hs
View File

@@ -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