diff options
| author | David Waern <david.waern@gmail.com> | 2008-10-15 20:49:18 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-10-15 20:49:18 +0000 |
| commit | 7d1d88656159df412af784f4088f24e86e0d5cad (patch) | |
| tree | f290384153dcc751b501ad5972a06f101f59c3be | |
| parent | 7c54415a73ddb286d15aa9a1c4661d1313fc6da4 (diff) | |
Wibble
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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') |