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

fix a couple warnings

Browse source
This commit is contained in:
Joey Hess 2019-08-27 12:24:31 -04:00
parent 770b8ff926
commit a51a479fb9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Unannex.hs
View file

@ -56,10 +56,10 @@ wrapUnannex a = ifM versionSupportsUnlockedPointers
]
cleanindex = ifM (inRepo Git.Ref.headExists)
( do
(diff, cleanup) <- inRepo $ DiffTree.diffIndex Git.Ref.headRef
(diff, reap) <- inRepo $ DiffTree.diffIndex Git.Ref.headRef
if null diff
then void (liftIO cleanup) >> return True
else void (liftIO cleanup) >> return False
then void (liftIO reap) >> return True
else void (liftIO reap) >> return False
, return False
)