From 6ad858d175a528499fd3e4fe771b38c06494c7de Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 30 Dec 2024 21:44:58 +0300
Subject: [PATCH] wip

---
 hbs2-git3/app/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs
index da05f033..6431b662 100644
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@@ -606,8 +606,7 @@ mergeSortedFilesN getKey inputFiles outFile = do
   mmaped <- for inputFiles $ \fn -> do
      liftIO (mmapFileByteString fn Nothing)
 
-  liftIO $ UIO.withBinaryFileAtomic outFile WriteMode $ \hOut ->
-
+  liftIO $ UIO.withBinaryFileAtomic outFile WriteMode $ \hOut -> do
     flip fix (mmaped, Heap.empty) $ \next (mmf, win) -> do
       let (entries, files) = fmap readEntry mmf & unzip
       let values = [ Entry (getKey e) e | e <- catMaybes entries ]