From 28e685d2589e4cd6847c21fe45a3b702c15090ea Mon Sep 17 00:00:00 2001 From: Niklas Haas Date: Mon, 10 Mar 2014 21:03:22 +0100 Subject: Include fixity information in the Interface file This resolves fixity information not appearing across package borders. The binary file version has been increased accordingly. --- src/Haddock/InterfaceFile.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/Haddock/InterfaceFile.hs') diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index b4d5406d..924829d7 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -77,7 +77,7 @@ binaryInterfaceMagic = 0xD0Cface -- binaryInterfaceVersion :: Word16 #if __GLASGOW_HASKELL__ == 709 -binaryInterfaceVersion = 24 +binaryInterfaceVersion = 25 binaryInterfaceVersionCompatibility :: [Word16] binaryInterfaceVersionCompatibility = [binaryInterfaceVersion] @@ -365,15 +365,17 @@ instance Binary InterfaceFile where instance Binary InstalledInterface where - put_ bh (InstalledInterface modu info docMap argMap exps visExps opts subMap) = do + put_ bh (InstalledInterface modu info docMap argMap + exps visExps opts subMap fixMap) = do put_ bh modu put_ bh info put_ bh docMap - put_ bh argMap + put_ bh argMap put_ bh exps put_ bh visExps put_ bh opts put_ bh subMap + put_ bh fixMap get bh = do modu <- get bh @@ -384,9 +386,10 @@ instance Binary InstalledInterface where visExps <- get bh opts <- get bh subMap <- get bh + fixMap <- get bh return (InstalledInterface modu info docMap argMap - exps visExps opts subMap) + exps visExps opts subMap fixMap) instance Binary DocOption where -- cgit v1.2.3