diff --git a/test/Test/Database/LSMTree/Internal/Run.hs b/test/Test/Database/LSMTree/Internal/Run.hs
index 17f3c56e7..5f531a743 100644
--- a/test/Test/Database/LSMTree/Internal/Run.hs
+++ b/test/Test/Database/LSMTree/Internal/Run.hs
@@ -309,13 +309,13 @@ withRunDataAsWriteBuffer hfs f fsPaths rd action = do
 
 -- | Serialise a 'WriteBuffer' and 'WriteBufferBlobs' to disk and perform an 'IO' action.
 withSerialisedWriteBuffer ::
-       FS.HasFS IO h
-    -> FS.HasBlockIO IO h
-    -> WriteBufferFsPaths
-    -> WriteBuffer
-    -> Ref (WriteBufferBlobs IO h)
-    -> IO a
-    -> IO a
+     FS.HasFS IO h
+  -> FS.HasBlockIO IO h
+  -> WriteBufferFsPaths
+  -> WriteBuffer
+  -> Ref (WriteBufferBlobs IO h)
+  -> IO a
+  -> IO a
 withSerialisedWriteBuffer hfs hbio wbPaths wb wbb =
   bracket_ (writeWriteBuffer hfs hbio wbPaths wb wbb) $ do
     for_ [ Paths.writeBufferKOpsPath wbPaths