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.Queue
import qualified Database.Keys
import Config
import Annex.FileMatcher
import Annex.Link
import Annex.Version

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
)

2
Command/Undo.hs
View file

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