diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-29 11:58:29 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-29 11:58:29 -0400 |
commit | 8011bedf1699147b34cc1504218a7c3bc14f1c47 (patch) | |
tree | 3155f28e3e8e2a9825f881b0dd0b642b56af7c60 /Assistant/Threads/Watcher.hs | |
parent | f901112e1ce30f43dc7294e0bd0616bb02556500 (diff) |
tweak
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
-rw-r--r-- | Assistant/Threads/Watcher.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 7287c8c12..172b7976e 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -159,11 +159,9 @@ onAddSymlink file filestatus = go =<< liftAnnex (Backend.lookupFile file) ensurestaged link daemonstatus | scanComplete daemonstatus = addlink link | otherwise = case filestatus of - Just s | not (changedrecently s) -> liftIO noChange + Just s + | not (afterLastDaemonRun (statusChangeTime s) daemonstatus) -> liftIO noChange _ -> addlink link - where - changedrecently s = - afterLastDaemonRun (statusChangeTime s) daemonstatus {- For speed, tries to reuse the existing blob for symlink target. -} addlink link = do |