From 0d4fbcc36820ab14263223196a5ea676558f69c2 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 12 Jan 2025 12:52:14 +0300 Subject: [PATCH] wip --- hbs2-git3/lib/HBS2/Git3/State/Index.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hbs2-git3/lib/HBS2/Git3/State/Index.hs b/hbs2-git3/lib/HBS2/Git3/State/Index.hs index 5f7dc00b..9904448e 100644 --- a/hbs2-git3/lib/HBS2/Git3/State/Index.hs +++ b/hbs2-git3/lib/HBS2/Git3/State/Index.hs @@ -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