From 7d1d88656159df412af784f4088f24e86e0d5cad Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 15 Oct 2008 20:49:18 +0000
Subject: Wibble

---
 src/Haddock/Interface/Rename.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 4f45da3a..39aeb48a 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -38,7 +38,7 @@ renameInterface renamingEnv warnings mod =
   let localEnv = foldl fn renamingEnv (ifaceVisibleExports mod)
         where fn env name = Map.insert name (ifaceMod mod) env
       
-      docMap = Map.map (\(_, doc) -> doc) $ ifaceDeclMap mod
+      docMap = Map.map snd $ ifaceDeclMap mod
       docs   = [ (n, doc) | (n, Just doc) <- Map.toList docMap ]
       renameMapElem (k,d) = do d' <- renameDoc d; return (k, d') 
 
-- 
cgit v1.2.3