WIP

Author: jorisdral

src/Database/LSMTree.hs

@@ -1247,14 +1247,14 @@ prop> inserts table entries = traverse_ (uncurry $ insert table) entries
 -}
 {-# SPECIALISE
   inserts ::
-    (SerialiseKey k, SerialiseValue v, ResolveValue v, SerialiseValue b) =>
+    (HasCallStack, SerialiseKey k, SerialiseValue v, ResolveValue v, SerialiseValue b) =>
     Table IO k v b ->
     Vector (k, v, Maybe b) ->
     IO ()
   #-}
 inserts ::
   forall m k v b.
-  (IOLike m) =>
+  (IOLike m, HasCallStack) =>
   (SerialiseKey k, SerialiseValue v, ResolveValue v, SerialiseValue b) =>
   Table m k v b ->
   Vector (k, v, Maybe b) ->