diff --git a/src/Database/LSMTree/Internal/Snapshot.hs b/src/Database/LSMTree/Internal/Snapshot.hs index 681b47c61..a87b9a1fe 100644 --- 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