diff options
| author | David Waern <david.waern@gmail.com> | 2008-11-06 21:59:45 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-11-06 21:59:45 +0000 |
| commit | 16313cde6d67da8b3eae3a1ca10e6f430f4a7704 (patch) | |
| tree | e2ab71ad8361f0fa84a6b73c3816c0167349e6c4 | |
| parent | 27376c681ce1efcef87b320ff1bc1587ea7437af (diff) | |
Fix warnings in H.GHC.Typecheck
| -rw-r--r-- | src/Haddock/GHC/Typecheck.hs | 14 |
1 files 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 |