summaryrefslogtreecommitdiff
path: root/Assistant/Threads/Watcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-02-22 17:01:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-02-22 17:01:48 -0400
commitcc1e06c9a5e2ce18c5a001052ffa3af09d212155 (patch)
treecf07d55f0224596029121a331e8f82756848b98c /Assistant/Threads/Watcher.hs
parente54b44fad998add6e413a7109d6b8416cce3a209 (diff)
fix inverted logic
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
-rw-r--r--Assistant/Threads/Watcher.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs
index 8c77fa64a..be82a105f 100644
--- a/Assistant/Threads/Watcher.hs
+++ b/Assistant/Threads/Watcher.hs
@@ -181,11 +181,11 @@ onAddDirect file fs = do
v <- liftAnnex $ catKeyFile file
case (v, fs) of
(Just key, Just filestatus) ->
- ifM (liftAnnex $ changedFileStatus key filestatus)
- ( do
+ ifM (liftAnnex $ sameFileStatus key filestatus)
+ ( noChange
+ , do
liftAnnex $ changedDirect key file
pendingAddChange file
- , noChange
)
_ -> pendingAddChange file