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

avoid warning over name

Browse source
This commit is contained in:
Joey Hess 2019-10-24 11:46:40 -04:00
parent 94a7bd9873
commit 168f91efec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Command/Smudge.hs
View file

@ -166,11 +166,11 @@ shouldAnnex file moldkey = ifM (annexGitAddToAnnex <$> Annex.getGitConfig)
, checkheuristics (pure False)
)
where
checkmatcher def = do
checkmatcher d = do
matcher <- largeFilesMatcher
checkFileMatcher' matcher file def
checkFileMatcher' matcher file d
checkheuristics def = case moldkey of
checkheuristics d = case moldkey of
Just _ -> return True
Nothing -> do
isknown <- withTSDelta (liftIO . genInodeCache file) >>= \case
@ -178,7 +178,7 @@ shouldAnnex file moldkey = ifM (annexGitAddToAnnex <$> Annex.getGitConfig)
Just ic -> Database.Keys.isInodeKnown ic =<< sentinalStatus
if isknown
then return True
else def
else d
checkwasingit = case moldkey of
Just _ -> return False