[haddock @ 2005-01-16 15:41:21 by panne]

Cleaned up imports and dropped support for GHC < 5.03, it never worked, anyway.

1 files changed, 20 insertions, 38 deletions

diff --git a/src/Main.hs b/src/Main.hs
index ea72c130..c2681594 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,52 +6,34 @@
 
 module Main (main) where
 
-import HaddockVersion
-import HaddockRename
-import HaddockParse
-import HaddockLex
+import Binary
+import Digraph
 --import HaddockDB   -- not compiling
 import HaddockHtml
+import HaddockLex
+import HaddockParse
+import HaddockRename
 import HaddockTypes
 import HaddockUtil
-import Digraph
-import Binary
-
-import Map ( Map )
-import qualified Map
-import Set
-import HsParser
+import HaddockVersion
 import HsParseMonad
+import HsParser
 import HsSyn
-import System
-
---import Pretty
-
-import Maybe	( isJust, maybeToList )
-import List	( nub )
-import Monad	( when )
-import Char	( isSpace )
-import IO
+import Map ( Map )
+import qualified Map hiding ( Map )
+import Set
 
-#if __GLASGOW_HASKELL__ < 503
-import MonadWriter
-import GetOpt
-import IOExts
-#else
-import Control.Monad.Writer
-import System.Console.GetOpt
-import Data.IORef
+import Control.Exception ( bracket )
+import Control.Monad ( when )
+import Control.Monad.Writer ( Writer, runWriter, tell )
+import Data.Char ( isSpace )
+import Data.IORef ( writeIORef )
+import Data.List ( nub )
+import Data.Maybe ( isJust, maybeToList )
 --import Debug.Trace
-import System.IO.Unsafe	 ( unsafePerformIO )
-#endif
-
-import Foreign
-import Foreign.C
-
-#if __GLASGOW_HASKELL__ < 500
-import Regex
-import PackedString
-#endif
+import System.Console.GetOpt ( getOpt, usageInfo, ArgOrder(..), OptDescr(..), ArgDescr(..) )
+import System.Environment ( getArgs )
+import System.IO ( stderr, IOMode(..), openFile, hClose, hGetContents, hPutStrLn )
 
 -----------------------------------------------------------------------------
 -- Top-level stuff