mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

replace removeLink with removeFile

Browse source 
removeFile calls unlink so removes anything not a directory. So these
are replaceable in order to convert to OsPath.
This commit is contained in:
Joey Hess 2025-02-02 14:16:58 -04:00
parent 8af91a4c92
commit 5cc8d9d03b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 39 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Upgrade/V7.hs
View file

@ -40,7 +40,7 @@ upgrade automatic = do
-- new database is not populated. It will be automatically
-- populated from the git-annex branch the next time it is used.
removeOldDb =<< fromRepo gitAnnexContentIdentifierDbDirOld
liftIO . removeWhenExistsWith (R.removeLink . fromOsPath)
liftIO . removeWhenExistsWith removeFile
=<< fromRepo gitAnnexContentIdentifierLockOld
-- The export databases are deleted here. The new databases
@ -50,9 +50,9 @@ upgrade automatic = do
populateKeysDb
removeOldDb =<< fromRepo gitAnnexKeysDbOld
liftIO . removeWhenExistsWith (R.removeLink . fromOsPath)
liftIO . removeWhenExistsWith removeFile
=<< fromRepo gitAnnexKeysDbIndexCacheOld
liftIO . removeWhenExistsWith (R.removeLink . fromOsPath)
liftIO . removeWhenExistsWith removeFile
=<< fromRepo gitAnnexKeysDbLockOld
updateSmudgeFilter