diff options
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index d2416afe..fbe3a712 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -308,8 +308,8 @@ serialiseName bh name _ = do -- Hmm, why didn't we dare to make this instance already? It makes things -- much easier. instance (Ord k, Binary k, Binary v) => Binary (Map k v) where - put_ bh m = put_ bh (Map.toAscList m) - get bh = fmap (Map.fromAscList) (get bh) + put_ bh m = put_ bh (Map.toList m) + get bh = fmap (Map.fromList) (get bh) instance Binary InterfaceFile where |