Add NFData (Normal.Update v blob) instance

IntersectMBO · Apr 29, 2024 · fab76d6 · fab76d6
1 parent 87c482f
commit fab76d6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Database/LSMTree/Internal/Normal.hs b/src/Database/LSMTree/Internal/Normal.hs
@@ -1,10 +1,11 @@
-{-# LANGUAGE DeriveTraversable #-}
 module Database.LSMTree.Internal.Normal (
     LookupResult (..),
     RangeLookupResult (..),
     Update (..),
 ) where
 
+import           Control.DeepSeq (NFData (..))
+
 -- | Result of a single point lookup.
 data LookupResult k v blobref =
     NotFound      !k
@@ -26,3 +27,7 @@ data Update v blob =
     Insert !v !(Maybe blob)
   | Delete
   deriving (Show, Eq)
+
+instance (NFData v, NFData blob) => NFData (Update v blob) where
+  rnf Delete       = ()
+  rnf (Insert v b) = rnf v `seq` rnf b