diff options
| author | David Waern <david.waern@gmail.com> | 2009-01-02 21:38:27 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-01-02 21:38:27 +0000 |
| commit | ca90e10eab9c938f211ce5e83ae0e8c15222a958 (patch) | |
| tree | b9064bab6933addfe2df86e0f72277f63c5a86dd /src/Haddock/InterfaceFile.hs | |
| parent | 422366027d23ed1d57902adaa9360e386fb6ae7c (diff) | |
Show re-exported names from external packages again
This fixes GHC ticket 2746.
In order to also link to the exported subordinate names of a declaration, we
need to re-introduce the sub map in the .haddock files.
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index e04e5b3e..0daa21aa 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -353,13 +353,14 @@ instance Binary InterfaceFile where instance Binary InstalledInterface where - put_ bh (InstalledInterface modu info docMap exps visExps opts) = do + put_ bh (InstalledInterface modu info docMap exps visExps opts subMap) = do put_ bh modu put_ bh info put_ bh (Map.toList docMap) put_ bh exps put_ bh visExps put_ bh opts + put_ bh (Map.toList subMap) get bh = do modu <- get bh @@ -368,7 +369,10 @@ instance Binary InstalledInterface where exps <- get bh visExps <- get bh opts <- get bh - return (InstalledInterface modu info (Map.fromList docMap) exps visExps opts) + subMap <- get bh + + return (InstalledInterface modu info (Map.fromList docMap) + exps visExps opts (Map.fromList subMap)) instance Binary DocOption where |