WIP

Author: jorisdral

test/Database/LSMTree/Class.hs

@@ -28,6 +28,7 @@ import qualified Database.LSMTree.Internal.Paths as RIP
 import qualified Database.LSMTree.Internal.Types as RT (Table (..))
 import qualified Database.LSMTree.Internal.Unsafe as RU (SessionEnv (..),
                      Table (..), withKeepSessionOpen)
+import           GHC.Stack (HasCallStack)
 import           Test.Util.FS (flipRandomBitInRandomFileHardlinkSafe)
 import           Test.Util.QC (Choice)
 
@@ -106,31 +107,35 @@ class (IsSession (Session h)) => IsTable h where
         -> m (V.Vector b)
 
     updates ::
-           ( IOLike m
+           ( HasCallStack
+           , IOLike m
            , C k v b
            )
         => h m k v b
         -> V.Vector (k, Update v b)
         -> m ()
 
     inserts ::
-           ( IOLike m
+           ( HasCallStack
+           , IOLike m
            , C k v b
            )
         => h m k v b
         -> V.Vector (k, v, Maybe b)
         -> m ()
 
     deletes ::
-           ( IOLike m
+           ( HasCallStack
+           , IOLike m
            , C k v b
            )
         => h m k v b
         -> V.Vector k
         -> m ()
 
     upserts ::
-           ( IOLike m
+           ( HasCallStack
+           , IOLike m
            , C k v b
            )
         => h m k v b