From c27ddfa468cdc94820e1b3034d249ce3137634ef Mon Sep 17 00:00:00 2001
From: Dmitry Zuykov <dzuikov@gmail.com>
Date: Wed, 14 May 2025 14:14:27 +0300
Subject: [PATCH] wip, removed obsolete stuff

---
 hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
index a5aca1a5..f074128c 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
@@ -187,9 +187,6 @@ ncqGetNewFossilName n@NCQStorage{} = do
   let (p,tpl)  = splitFileName fn
   liftIO $ emptyTempFile p tpl
 
-ncqGetRefsDataFileName :: NCQStorage -> FilePath
-ncqGetRefsDataFileName ncq = ncqGetFileName ncq "refs.data"
-
 ncqGetIndexFileName :: NCQStorage -> FileKey -> FilePath
 ncqGetIndexFileName ncq fk = do
   ncqGetFileName ncq (addExtension (dropExtension (BS8.unpack (coerce fk))) ".cq")
@@ -995,11 +992,8 @@ ncqStorageInit_ check path = do
 
   debug $ "currentFileName" <+> pretty (ncqGetCurrentName_ path ncqGen)
 
-
   let ncq = NCQStorage{..}
 
-  touch (ncqGetRefsDataFileName ncq)
-
   pure ncq
 
 ncqStorageFlush :: MonadUnliftIO m => NCQStorage -> m ()