adding support for local and relative name qualification

1 files changed, 6 insertions, 1 deletions

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