diff options
| -rw-r--r-- | src/Storage/Internal.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Storage/Internal.hs b/src/Storage/Internal.hs index b68d0f7..7b29193 100644 --- a/src/Storage/Internal.hs +++ b/src/Storage/Internal.hs @@ -91,7 +91,9 @@ instance Show RefDigest where show = BC.unpack . showRefDigest data Ref' c = Ref (Storage' c) RefDigest - deriving (Eq) + +instance Eq (Ref' c) where + Ref _ d1 == Ref _ d2 = d1 == d2 instance Show (Ref' c) where show ref@(Ref st _) = show st ++ ":" ++ BC.unpack (showRef ref) |