From 16313cde6d67da8b3eae3a1ca10e6f430f4a7704 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 6 Nov 2008 21:59:45 +0000
Subject: Fix warnings in H.GHC.Typecheck

---
 src/Haddock/GHC/Typecheck.hs | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

(limited to 'src/Haddock/GHC')

diff --git a/src/Haddock/GHC/Typecheck.hs b/src/Haddock/GHC/Typecheck.hs
index 3ef1957f..4af2f811 100644
--- a/src/Haddock/GHC/Typecheck.hs
+++ b/src/Haddock/GHC/Typecheck.hs
@@ -10,16 +10,10 @@ module Haddock.GHC.Typecheck (
 ) where
 
 
-import Haddock.Exception
 import Haddock.Types
-import Haddock.GHC.Utils
 
 import Data.Maybe
-import Control.Monad
 import GHC
-import HscTypes ( msHsFilePath )
-import Digraph
-import BasicTypes
 import SrcLoc
 
 import Data.List
@@ -36,13 +30,13 @@ type FullyCheckedMod = (ParsedSource,
 
 -- | Dig out what we want from the typechecker output
 mkGhcModule :: CheckedMod -> DynFlags -> GhcModule 
-mkGhcModule (mod, file, checkedMod) dynflags = GhcModule {
-  ghcModule         = mod,
+mkGhcModule (mdl, file, checkedMod) dynflags = GhcModule {
+  ghcModule         = mdl,
   ghcFilename       = file,
   ghcMbDocOpts      = mbOpts,
   ghcHaddockModInfo = info,
   ghcMbDoc          = mbDoc,
-  ghcGroup          = group,
+  ghcGroup          = group_,
   ghcMbExports      = mbExports,
   ghcExportedNames  = modInfoExports modInfo,
   ghcDefinedNames   = map getName $ modInfoTyThings modInfo,
@@ -55,5 +49,5 @@ mkGhcModule (mod, file, checkedMod) dynflags = GhcModule {
 #else
     mbOpts = haddockOptions dynflags
 #endif
-    (group, _, mbExports, mbDoc, info) = renamed
+    (group_, _, mbExports, mbDoc, info) = renamed
     (parsed, renamed, _, modInfo) = checkedMod
-- 
cgit v1.2.3