From a0d412986305d4b45e82afde62ea48f1b06edb9d Mon Sep 17 00:00:00 2001 From: peb Date: Wed, 9 Feb 2005 11:46:54 +0000 Subject: "Committed_by_peb" --- src/GF/Canon/PrExp.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'src/GF/Canon/PrExp.hs') diff --git a/src/GF/Canon/PrExp.hs b/src/GF/Canon/PrExp.hs index a689fb81a..dbd2bdc95 100644 --- a/src/GF/Canon/PrExp.hs +++ b/src/GF/Canon/PrExp.hs @@ -9,20 +9,16 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- print trees without qualifications ----------------------------------------------------------------------------- -module PrExp where +module PrExp (prExp) where import AbsGFC import GFC import Operations --- some printing - --- print trees without qualifications - prExp :: Exp -> String prExp e = case e of EApp f a -> pr1 f +++ pr2 a -- cgit v1.2.3