mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
cb307a4ca6
commit
0d4fbcc368
|
@ -97,6 +97,8 @@ mergeSortedFilesN :: forall m . MonadUnliftIO m
|
|||
|
||||
mergeSortedFilesN _ [] out = rm out
|
||||
|
||||
mergeSortedFilesN _ [_] out = rm out
|
||||
|
||||
mergeSortedFilesN getKey inputFiles outFile = do
|
||||
|
||||
mmaped <- for inputFiles $ \fn -> do
|
||||
|
|
Loading…
Reference in New Issue