diff options
Diffstat (limited to 'Logs/Web.hs')
-rw-r--r-- | Logs/Web.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index b52e347e5..62656b7ed 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -42,12 +42,11 @@ getUrls key = do {- Records a change in an url for a key. -} setUrl :: Key -> URLString -> LogStatus -> Annex () setUrl key url status = do - g <- gitRepo addLog (urlLog key) =<< logNow status url -- update location log to indicate that the web has the key, or not us <- getUrls key - logChange g 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 url = setUrl key url InfoPresent |