[haddock @ 2005-01-16 14:37:10 by panne]

Refactored Text.PrettyPrint legacy hell into a separate module.

1 files changed, 6 insertions, 9 deletions

diff --git a/src/HaddockHH.hs b/src/HaddockHH.hs
index fb63c872..40d74967 100644
--- a/src/HaddockHH.hs
+++ b/src/HaddockHH.hs
@@ -1,20 +1,17 @@
 module HaddockHH(ppHHContents, ppHHIndex, ppHHProject) where
 
+import HaddockModuleTree
+import HaddockTypes
+import HaddockUtil
 import HsSyn hiding(Doc)
+import qualified Map
+import PrettyPrint
 
-#if __GLASGOW_HASKELL__ < 503
-import Pretty
-#else
-import Text.PrettyPrint
+#if __GLASGOW_HASKELL__ >= 503
 import Data.Char ( toUpper )
 #endif
 
 import Maybe	( fromMaybe )
-import HaddockModuleTree
-import HaddockUtil
-import HaddockTypes
-import qualified Map
-
 
 ppHHContents :: FilePath -> String -> Maybe String -> [ModuleTree] -> IO ()
 ppHHContents odir doctitle maybe_package tree = do