Rename HaddockModule to Interface and a few more refactorings

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 44e8d7fd..8b2cfa34 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -75,7 +75,7 @@ data ExportItem name
 
 
 type InstHead name = ([HsPred name], name, [HsType name])
-type ModuleMap     = Map Module HaddockModule
+type ModuleMap     = Map Module Interface
 type DocMap        = Map Name (HsDoc DocName)
 type LinkEnv       = Map Name Name
 
@@ -108,7 +108,7 @@ data GhcModule = GhcModule {
 -- structure (see Haddock.Interface).
 --
 -- The structure also holds intermediate data needed during its creation.
-data HaddockModule = HM {
+data Interface = Interface {
 
   -- | A value to identify the module
   hmod_mod                :: Module,