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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Command/Add.hs
View file

@ -14,7 +14,6 @@ import Annex.Content
import qualified Annex import qualified Annex
import qualified Annex.Queue import qualified Annex.Queue
import qualified Database.Keys import qualified Database.Keys
import Config
import Annex.FileMatcher import Annex.FileMatcher
import Annex.Link import Annex.Link
import Annex.Version import Annex.Version

6
Command/Unannex.hs
View file

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

2
Command/Undo.hs
View file

@ -8,8 +8,6 @@
module Command.Undo where module Command.Undo where
import Command import Command
import Config
import Annex.CatFile
import Git.DiffTree import Git.DiffTree
import Git.FilePath import Git.FilePath
import Git.UpdateIndex import Git.UpdateIndex