diff options
| -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 |