aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2006-09-22 20:51:43 +0000
committerdavve <davve@dtek.chalmers.se>2006-09-22 20:51:43 +0000
commit2174755f1ce1fd5cbf7b7d68035176835f1dce7f (patch)
tree2d8e2de2891cafc1aa7b30f50f5198b140a5380a /src
parent3fb955471974728f78506fe5d526cdaa08afa556 (diff)
Remove unused imports in Main
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 5c686873..a4b9810f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -16,7 +16,7 @@ import HaddockVersion
import Paths_haddock ( getDataDir )
import Prelude hiding ( catch )
-import Control.Exception ( bracket, throwIO, catch, Exception(..) )
+import Control.Exception ( catch )
import Control.Monad ( when, liftM )
import Control.Monad.Writer ( Writer, runWriter, tell )
import Data.Char ( isSpace )
@@ -28,18 +28,18 @@ import Data.Maybe ( Maybe(..), isJust, isNothing, maybeToList,
import System.Console.GetOpt ( getOpt, usageInfo, ArgOrder(..), OptDescr(..),
ArgDescr(..) )
import System.Environment ( getArgs )
-import System.IO ( stderr, IOMode(..), openFile, hClose,
- hGetContents, hPutStrLn )
-import System.Directory ( doesFileExist, doesDirectoryExist )
+import System.Directory ( doesDirectoryExist )
+
import qualified Data.Map as Map
import Data.Map (Map)
+
import Distribution.InstalledPackageInfo ( InstalledPackageInfo(..) )
import qualified GHC ( init )
import GHC hiding ( init )
import Outputable
import SrcLoc
-import qualified Digraph as Digraph
+import Digraph ( flattenSCC )
import Name
import Module ( mkModule )
import InstEnv
@@ -202,7 +202,7 @@ sortAndCheckModules session flags files = defaultErrorHandler flags $ do
let
modSumFile = fromJust . ml_hs_file . ms_location
sortedGraph = topSortModuleGraph False moduleGraph Nothing
- sortedModules = concatMap Digraph.flattenSCC sortedGraph
+ sortedModules = concatMap flattenSCC sortedGraph
modsAndFiles = [ (ms_mod modsum, modSumFile modsum) |
modsum <- sortedModules,
modSumFile modsum `elem` files ]