diff options
| author | Niklas Haas <git@nand.wakku.to> | 2014-03-10 21:03:22 +0100 |
|---|---|---|
| committer | Niklas Haas <git@nand.wakku.to> | 2014-03-11 10:26:04 +0100 |
| commit | 28e685d2589e4cd6847c21fe45a3b702c15090ea (patch) | |
| tree | e31e82b089480ab91c8e1454f0cf306751595821 /src/Haddock/InterfaceFile.hs | |
| parent | c40ee25c4a9cc4952b237d1b5a659eaeb0023c05 (diff) | |
Include fixity information in the Interface file
This resolves fixity information not appearing across package borders.
The binary file version has been increased accordingly.
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 11 |
1 files changed, 7 insertions, 4 deletions
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 |