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

warning

Browse source
This commit is contained in:
Joey Hess 2012-02-18 11:54:47 -04:00
parent 00340dfe49
commit 0cbbf0da79
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/Web.hs
View file

@ -52,8 +52,8 @@ setUrl key url status = do
addLog (urlLog key) =<< logNow status url addLog (urlLog key) =<< logNow status url
-- update location log to indicate that the web has the key, or not -- 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) 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