voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, removed obsolete stuff

This commit is contained in:
Dmitry Zuykov 2025-05-14 14:14:27 +03:00
parent 11159be468
commit c27ddfa468
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
View File

@ -187,9 +187,6 @@ ncqGetNewFossilName n@NCQStorage{} = do
let (p,tpl) = splitFileName fn let (p,tpl) = splitFileName fn
liftIO $ emptyTempFile p tpl liftIO $ emptyTempFile p tpl
ncqGetRefsDataFileName :: NCQStorage -> FilePath
ncqGetRefsDataFileName ncq = ncqGetFileName ncq "refs.data"
ncqGetIndexFileName :: NCQStorage -> FileKey -> FilePath ncqGetIndexFileName :: NCQStorage -> FileKey -> FilePath
ncqGetIndexFileName ncq fk = do ncqGetIndexFileName ncq fk = do
ncqGetFileName ncq (addExtension (dropExtension (BS8.unpack (coerce fk))) ".cq") ncqGetFileName ncq (addExtension (dropExtension (BS8.unpack (coerce fk))) ".cq")
@ -995,11 +992,8 @@ ncqStorageInit_ check path = do
debug $ "currentFileName" <+> pretty (ncqGetCurrentName_ path ncqGen) debug $ "currentFileName" <+> pretty (ncqGetCurrentName_ path ncqGen)
let ncq = NCQStorage{..} let ncq = NCQStorage{..}
touch (ncqGetRefsDataFileName ncq)
pure ncq pure ncq
ncqStorageFlush :: MonadUnliftIO m => NCQStorage -> m () ncqStorageFlush :: MonadUnliftIO m => NCQStorage -> m ()