comment
This commit is contained in:
parent
46180eab4d
commit
bf57edbdd6
2 changed files with 19 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue