From aed3de1c3ae1b30484c9aa6c03d6689fd7d7fcea Mon Sep 17 00:00:00 2001
From: Wolfgang Jeltsch <wolfgang@well-typed.com>
Date: Tue, 3 Jun 2025 17:30:46 +0300
Subject: [PATCH] Make `InvalidSnapshotNameError` an instance of `Eq`

---
 src/Database/LSMTree/Internal/Paths.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Database/LSMTree/Internal/Paths.hs b/src/Database/LSMTree/Internal/Paths.hs
index 55eb327d2..a93bb07cb 100644
--- a/src/Database/LSMTree/Internal/Paths.hs
+++ b/src/Database/LSMTree/Internal/Paths.hs
@@ -104,7 +104,7 @@ instance IsString SnapshotName where
 
 data InvalidSnapshotNameError
   = ErrInvalidSnapshotName !String
-  deriving stock (Show)
+  deriving stock (Show, Eq)
   deriving anyclass (Exception)
 
 -- | Check if a 'String' would be a valid snapshot name.