Move convenient type synonym to H.Types

2 files changed, 5 insertions, 5 deletions

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 5b57324e..9252b9eb 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -128,11 +128,6 @@ parseOption other = tell ["Unrecognised option: " ++ other] >> return Nothing
 -- Declarations
 --------------------------------------------------------------------------------
 
--- convenient short-hands
-
-type Decl = LHsDecl Name
-type Doc  = HsDoc Name
-
 
 type DeclWithDoc = (Decl, Maybe Doc)
 
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index f9b423de..3951d030 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -17,6 +17,11 @@ import GHC hiding (NoLink)
 import Name
 
 
+-- convenient short-hands
+type Decl = LHsDecl Name
+type Doc  = HsDoc Name
+
+
 {-! for DocOption derive: Binary !-}
 data DocOption
   = OptHide           -- ^ This module should not appear in the docs