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

fix oops

Browse source
This commit is contained in:
Joey Hess 2021-03-26 14:37:03 -04:00
parent 1a8f984634
commit 4a387eda54
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/Borg.hs
View file

@ -160,7 +160,7 @@ listImportableContentsM u borgrepo c = prompt $ do
Nothing -> Right <$>
let archive = borgArchive borgrepo archivename
in withborglist archive subdir formatfilelist $
liftIO . evaluate . force $ parsefilelist archivename
liftIO . evaluate . force . parsefilelist archivename
if all isLeft ls && M.null (M.difference imported (M.fromList (lefts ls)))
then return Nothing -- unchanged since last time, avoid work
else Just . mkimportablecontents <$> mapM (either snd pure) ls