This commit is contained in:
Joey Hess 2014-11-03 13:17:55 -04:00
parent 46180eab4d
commit bf57edbdd6
2 changed files with 19 additions and 1 deletions

View file

@ -65,7 +65,7 @@ statusDirect f = checkstatus =<< liftIO (catchMaybeIO $ getFileStatus f)
where
checkstatus Nothing = return $ Just DeletedFile
checkstatus (Just s)
-- Git thinks that present direct mode files modifed,
-- Git thinks that present direct mode files are modifed,
-- so have to check.
| not (isSymbolicLink s) = checkkey s =<< catKeyFile f
| otherwise = Just <$> checkNew f