Fix NFData instance for SnapshotMetaData

IntersectMBO · Dec 19, 2024 · a5e8698 · a5e8698
1 parent d68478f
commit a5e8698
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Database/LSMTree/Internal/Snapshot.hs b/src/Database/LSMTree/Internal/Snapshot.hs
@@ -116,7 +116,7 @@ data SnapshotMetaData = SnapshotMetaData {
   deriving stock (Show, Eq)
 
 instance NFData SnapshotMetaData where
-  rnf (SnapshotMetaData a b c d) = rnf a `seq` rnf b `seq` rnf c `seq` rnf d
+  rnf (SnapshotMetaData a b c d e) = rnf a `seq` rnf b `seq` rnf c `seq` rnf d `seq` rnf e
 
 {-------------------------------------------------------------------------------
   Levels snapshot format