voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2024-12-30 21:44:58 +03:00
parent 33d0493edc
commit 6ad858d175
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-git3/app/Main.hs
View File

@ -606,8 +606,7 @@ mergeSortedFilesN getKey inputFiles outFile = do
mmaped <- for inputFiles $ \fn -> do mmaped <- for inputFiles $ \fn -> do
liftIO (mmapFileByteString fn Nothing) 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 flip fix (mmaped, Heap.empty) $ \next (mmf, win) -> do
let (entries, files) = fmap readEntry mmf & unzip let (entries, files) = fmap readEntry mmf & unzip
let values = [ Entry (getKey e) e | e <- catMaybes entries ] let values = [ Entry (getKey e) e | e <- catMaybes entries ]