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

add back setDirect, lost in recent commit

Browse source 
Oops, thanks goodness for test suite that found this..
This commit is contained in:
Joey Hess 2019-06-25 13:38:18 -04:00
parent ecda1bf5de
commit d2cc747d66
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Command/Direct.hs
View file

@ -46,7 +46,7 @@ perform = do
(l, clean) <- inRepo $ Git.LsFiles.inRepo [top] (l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
forM_ l go forM_ l go
void $ liftIO clean void $ liftIO clean
next $ return True next cleanup
where where
go = whenAnnexed $ \f k -> do go = whenAnnexed $ \f k -> do
toDirectGen k f >>= \case toDirectGen k f >>= \case
@ -60,3 +60,8 @@ perform = do
warnlocked f e = do warnlocked f e = do
warning $ f ++ ": " ++ show e warning $ f ++ ": " ++ show e
warning "leaving this file as-is; correct this problem and run git annex fsck on it" warning "leaving this file as-is; correct this problem and run git annex fsck on it"
cleanup :: CommandCleanup
cleanup = do
setDirect True
return True