diff options
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 578538ca7..f49684258 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -70,7 +70,7 @@ statusDirect f = checkstatus =<< liftIO (catchMaybeIO $ getFileStatus f) | not (isSymbolicLink s) = checkkey s =<< catKeyFile f | otherwise = Just <$> checkNew f - checkkey s (Just k) = ifM (sameFileStatus k s) + checkkey s (Just k) = ifM (sameFileStatus k f s) ( return Nothing , return $ Just ModifiedFile ) |