From 313f9e69c9981a0200e333b3dc573dc9e681c0ad Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Thu, 5 Oct 2006 19:49:26 +0000
Subject: Remove unused pretty printing

---
 src/Main.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 5ce7409f..94ea575b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -419,13 +419,7 @@ run flags modules extEnv = do
                 maybe_source_urls maybe_wiki_urls
                 maybe_contents_url maybe_index_url
     copyHtmlBits odir libdir css_file
-  where
-    pprList [] = []
-    pprList [x] = show x
-    pprList (x:xs) = show x ++ ", " ++ pprList xs
- 
-print_ x = printSDoc (ppr x) defaultUserStyle        
-
+{- 
 instance Outputable (DocEntity Name) where
   ppr (DocEntity d) = ppr d
   ppr (DeclEntity name) = ppr name
@@ -437,7 +431,7 @@ instance Show a => Show (DocDecl a) where
   show (DocCommentNext doc) = "next" ++ show doc
   show (DocCommentPrev doc) = "prev" ++ show doc
   show _ = "other" 
-
+-}
 type FullyCheckedMod = (ParsedSource, 
                         RenamedSource, 
                         TypecheckedSource, 
-- 
cgit v1.2.3