diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-27 19:59:19 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-30 20:53:55 +0200 |
| commit | 73e91c5639257990943060d29549ab0b5af957e8 (patch) | |
| tree | b04102fccf793ce8945aae9283658435d6be0e04 | |
| parent | c27b3c23ecdd53acdbfece747b9bbdb39bf4dae9 (diff) | |
Storage: Eq instance for Ref based only on digest
The associated storage is extracted only in internal storage module, so
now does not need to be observable via Eq either.
| -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) |