From ca90e10eab9c938f211ce5e83ae0e8c15222a958 Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 2 Jan 2009 21:38:27 +0000 Subject: 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. --- src/Haddock/InterfaceFile.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/Haddock/InterfaceFile.hs') 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 -- cgit v1.2.3