aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <unknown>2007-08-16 17:32:13 +0000
committerDavid Waern <unknown>2007-08-16 17:32:13 +0000
commit152b16385d2908b90ea428cee091b39e6af9ae11 (patch)
treef04ace3b6eec83a8fcdc309c78cc1183eeff5a6b /src
parent6312ec76494a5f97bee26e141bf1e7666c90db99 (diff)
Remove explict module imports in Main
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs49
1 files changed, 23 insertions, 26 deletions
diff --git a/src/Main.hs b/src/Main.hs
index a87b5c15..65f0b5eb 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -13,72 +13,69 @@ module Main (main) where
import Haddock.Html
import Haddock.Hoogle
import Haddock.Rename
-import Haddock.Types hiding ( NoLink )
+import Haddock.Types hiding (NoLink)
import Haddock.Utils
import Haddock.Version
import Haddock.InterfaceFile
import Haddock.Exception
import Haddock.Utils.GHC
-import Paths_haddock ( getDataDir )
+import Paths_haddock
-import Prelude hiding ( catch )
+import Prelude hiding (catch)
import Control.Exception
import Control.Monad
-import Control.Monad.Writer ( Writer, runWriter, tell )
+import Control.Monad.Writer
import Control.Arrow
-import Data.Char ( isSpace )
-import Data.IORef ( writeIORef )
+import Data.Char
+import Data.IORef
import Data.Ord
-import Data.List ( nub, nubBy, (\\), foldl', sortBy, foldl1, init,
- mapAccumL, find, isPrefixOf )
-import Data.Maybe ( Maybe(..), isJust, isNothing, maybeToList,
- listToMaybe, fromJust, catMaybes )
+import Data.List
+import Data.Maybe
import Data.Typeable
-import Data.Graph hiding ( flattenSCC )
+import Data.Graph hiding (flattenSCC)
import Data.Dynamic
-import Data.Foldable ( foldlM )
-import System.Console.GetOpt ( getOpt, usageInfo, ArgOrder(..), OptDescr(..),
- ArgDescr(..) )
-import System.Environment ( getArgs )
+import Data.Foldable (foldlM)
+import System.Console.GetOpt
+import System.Environment
import System.Directory
import System.FilePath
-import System.Cmd ( system )
+import System.Cmd
import System.Exit
import System.IO
import qualified Data.Map as Map
-import Data.Map (Map)
+import Data.Map (Map)
-import Distribution.InstalledPackageInfo ( InstalledPackageInfo(..) )
+import Distribution.InstalledPackageInfo
import Distribution.Simple.Utils
import GHC
import Outputable
import SrcLoc
-import Digraph ( flattenSCC )
+import Digraph
import Name
-import Module ( mkModule )
+import Module
import InstEnv
import Class
import TypeRep
-import Var hiding ( varName )
+import Var hiding (varName)
import TyCon
import PrelNames
import Bag
import HscTypes
-import Util ( handleDyn )
-import ErrUtils ( printBagOfErrors )
+import Util (handleDyn)
+import ErrUtils (printBagOfErrors)
import BasicTypes
import UniqFM
import FastString
#define FSLIT(x) (mkFastString# (x#))
-import DynFlags hiding ( Option )
-import Packages hiding ( package )
-import StaticFlags ( parseStaticFlags )
+import DynFlags hiding (Option)
+import Packages hiding (package)
+import StaticFlags
--------------------------------------------------------------------------------