From 8871af09420160e7ca770c0ab72d8b7f6be70380 Mon Sep 17 00:00:00 2001
From: Tobias Brandt <tob.brandt@gmail.com>
Date: Fri, 27 Aug 2010 15:50:28 +0000
Subject: adding support for local and relative name qualification

---
 src/Haddock/Types.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Haddock/Types.hs')

diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 0f868555..02e80db6 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -355,7 +355,12 @@ data DocOption
   deriving (Eq, Show)
 
 -- | Option controlling how to qualify names
-data Qualification = NoQuali | FullQuali
+data Qualification
+    = NoQuali                      -- ^ Never qualify any names
+    | FullQuali                    -- ^ Qualify all names fully
+    | LocalQuali (Maybe Module)    -- ^ Qualify all imported names fully
+    | RelativeQuali (Maybe Module) -- ^ Like local, but strip module prefix
+                                   --   from modules in the same hierarchy
 
 -----------------------------------------------------------------------------
 -- * Error handling
-- 
cgit v1.2.3