1 files changed, 2 insertions, 6 deletions
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