From bb5af4bbba915fb137365718c9e74c62cf1b8955 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 4 Nov 2007 10:17:48 +0000 Subject: interpreter with pipes --- src/GF/Command/PPrTree.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Command/PPrTree.hs') 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 -- cgit v1.2.3