Skip to content

Commit 3ba7727

Browse files
authored
Merge pull request #750 from IntersectMBO/jeltsch/invalid-snapshot-name-error-equality
Make `InvalidSnapshotNameError` an instance of `Eq`
2 parents 3bd84fc + aed3de1 commit 3ba7727

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/Database/LSMTree/Internal/Paths.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -104,7 +104,7 @@ instance IsString SnapshotName where
104104

105105
data InvalidSnapshotNameError
106106
= ErrInvalidSnapshotName !String
107-
deriving stock (Show)
107+
deriving stock (Show, Eq)
108108
deriving anyclass (Exception)
109109

110110
-- | Check if a 'String' would be a valid snapshot name.

0 commit comments

Comments
 (0)