diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-04 10:17:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-04 10:17:48 +0000 |
| commit | bb5af4bbba915fb137365718c9e74c62cf1b8955 (patch) | |
| tree | bcade66d0908603f17a262493ef7cbf3ebc37702 /src/GF/Command/PPrTree.hs | |
| parent | fdc39cf18c3cb8be2c142bef4a1bf80432a0cb3d (diff) | |
interpreter with pipes
Diffstat (limited to 'src/GF/Command/PPrTree.hs')
| -rw-r--r-- | src/GF/Command/PPrTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Command/PPrTree.hs b/src/GF/Command/PPrTree.hs index 555f88a3a..aa383b18b 100644 --- a/src/GF/Command/PPrTree.hs +++ b/src/GF/Command/PPrTree.hs @@ -1,4 +1,4 @@ -module GF.Command.PPrTree (pTree, prExp) where +module GF.Command.PPrTree (pTree, prExp, tree2exp) where import GF.GFCC.AbsGFCC import GF.GFCC.Macros @@ -17,7 +17,7 @@ tree2exp t = case t of TAbs xs t -> DTr (map i2i xs ++ ys) f ts where DTr ys f ts = tree2exp t TId c -> tree (AC (i2i c)) [] TInt i -> tree (AI i) [] --- TStr s + TStr s -> tree (AS s) [] -- TFloat d -> where i2i (Ident s) = CId s |