From e45c507f80dc7b77d0267e598e471eea7eac0fd2 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Wed, 30 Jul 2025 21:03:45 +0300
Subject: [PATCH] fix

---
 hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs
index f72cc5fe..30a5590f 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fossil.hs
@@ -73,7 +73,7 @@ ncqFossilMergeStep me@NCQStorage3{..}  = withSem ncqServiceSem $ flip runContT p
       let fik = coerce fi
       writeFiltered me (ncqGetFileName me fi) fd $ \_ _ k _ -> do
         ncqLocate_ False me k >>= \case
-          Nothing  -> pure True
+          Nothing  -> pure False
           Just (InMemory{}) -> pure False
           Just (InFossil fk _ _) -> do
             let beWritten = fik >= fk