mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid unnecessary log changes when re-adding the same url

Browse source
This commit is contained in:
Joey Hess 2012-02-17 23:58:56 -04:00
parent 5bf07b3b5c
commit 0fada43808
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Logs/Web.hs
View file

@ -47,11 +47,13 @@ getUrls key = go $ urlLog key : oldurlLogs key
{- Records a change in an url for a key. -} {- Records a change in an url for a key. -}
setUrl :: Key -> URLString -> LogStatus -> Annex () setUrl :: Key -> URLString -> LogStatus -> Annex ()
setUrl key url status = do setUrl key url status = do
addLog (urlLog key) =<< logNow status url
-- update location log to indicate that the web has the key, or not
us <- getUrls key us <- getUrls key
logChange key webUUID (if null us then InfoMissing else InfoPresent) unless (status == InfoPresent && url `elem` us) $ do
addLog (urlLog key) =<< logNow status url
-- update location log to indicate that the web has the key, or not
us <- getUrls key
logChange key webUUID (if null us then InfoMissing else InfoPresent)
setUrlPresent :: Key -> URLString -> Annex () setUrlPresent :: Key -> URLString -> Annex ()
setUrlPresent key url = setUrl key url InfoPresent setUrlPresent key url = setUrl key url InfoPresent