From 2fdedfb08ca1b52a801ea8a0ca5812015603c7c9 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 15 Oct 2008 21:53:53 +0000
Subject: Move convenient type synonym to H.Types

---
 src/Haddock/Interface/Create.hs | 5 -----
 src/Haddock/Types.hs            | 5 +++++
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Haddock')

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
-- 
cgit v1.2.3