diff options
| -rw-r--r-- | src/Main.hs | 49 |
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 -------------------------------------------------------------------------------- |