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 ()