This commit is contained in:
Joey Hess 2015-09-22 15:55:31 -04:00
parent 6885fe3c38
commit 178826c4cb

View file

@ -82,7 +82,6 @@ statusIndirect f = ifM (liftIO $ isJust <$> catchMaybeIO (getFileStatus f))
( checkNew f ( checkNew f
, return DeletedFile , return DeletedFile
) )
where
checkNew :: FilePath -> Annex Status checkNew :: FilePath -> Annex Status
checkNew f = ifM (isJust <$> catObjectDetails (Git.Ref.fileRef f)) checkNew f = ifM (isJust <$> catObjectDetails (Git.Ref.fileRef f))