diff options
author | Joey Hess <joey@kitenet.net> | 2013-02-19 16:26:07 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-02-19 17:31:03 -0400 |
commit | 490211a7f9cf9080bc913a481d8e11865931e46b (patch) | |
tree | 71fe44cb34462002aa58cb43618384eb77efc5e0 /Annex/Direct.hs | |
parent | 4e40b54a7516bbc9070faaef31254bd22154684e (diff) |
Direct mode: Support filesystems like FAT which can change their inodes each time they are mounted.
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 |