From 949849c3fde2ea2838b143717f250c4cce9e026e Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 27 Dec 2011 22:33:31 +0100 Subject: Minor fixes and cleanup. --- src/Haddock/Types.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Haddock/Types.hs') diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 3baa4a94..a3a7db15 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -40,9 +40,8 @@ type InstIfaceMap = Map Module InstalledInterface -- TODO: rename type DocMap a = Map Name (Doc a) type ArgMap a = Map Name (Map Int (Doc a)) type SubMap = Map Name [Name] -type DeclMap = Map Name [Decl] +type DeclMap = Map Name [LHsDecl Name] type SrcMap = Map PackageId FilePath -type Decl = LHsDecl Name type GhcDocHdr = Maybe LHsDocString type DocPaths = (FilePath, Maybe FilePath) -- paths to HTML and sources @@ -80,7 +79,7 @@ data Interface = Interface -- | Declarations originating from the module. Excludes declarations without -- names (instances and stand-alone documentation comments). Includes -- names of subordinate declarations mapped to their parent declarations. - , ifaceDeclMap :: Map Name [Decl] + , ifaceDeclMap :: Map Name [LHsDecl Name] -- | Documentation of declarations originating from the module (including -- subordinates). -- cgit v1.2.3