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(-)
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