diff options
Diffstat (limited to 'Annex/Direct.hs')
| -rw-r--r-- | Annex/Direct.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Direct.hs b/Annex/Direct.hs index 5d616e450..c6f12a7b8 100644 --- a/Annex/Direct.hs +++ b/Annex/Direct.hs @@ -85,7 +85,7 @@ addDirect file cache = do got Nothing = do showEndFail return False - got (Just (key, _)) = ifM (liftIO $ compareInodeCache file $ Just cache) + got (Just (key, _)) = ifM (sameInodeCache file $ Just cache) ( do stageSymlink file =<< hashSymlink =<< calcGitLink file key writeInodeCache key cache |