diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-03-11 16:52:37 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-03-12 07:05:16 -0500 |
| commit | ed04aed2b2d87d605c1cd13161bd3511e43c9452 (patch) | |
| tree | 5e05323b0840203ae3cc61678eae6a51681e5dcb | |
| parent | c82fb93476b9c32698f8c069e631d94fd6458666 (diff) | |
| download | haskell-ed04aed2b2d87d605c1cd13161bd3511e43c9452.tar.gz | |
Hadrian: use IntSet Binary instance for Way (#19209)
| -rw-r--r-- | hadrian/src/Way/Type.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hadrian/src/Way/Type.hs b/hadrian/src/Way/Type.hs index 257fce8c47..5945d48137 100644 --- a/hadrian/src/Way/Type.hs +++ b/hadrian/src/Way/Type.hs @@ -42,8 +42,8 @@ instance Read WayUnit where newtype Way = Way IntSet instance Binary Way where - put = put . show - get = fmap read get + put (Way w) = put w + get = Way <$> get instance Hashable Way where hashWithSalt salt = hashWithSalt salt . show |