diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-09 01:15:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-09 01:33:20 -0400 |
| commit | 56b8194470f0ddc1b3e1c51da8ca55a5c9c2eb05 (patch) | |
| tree | a03330e0fd21dc8f2f433fb3f5b568418037db8c /Logs/Web.hs | |
| parent | bf460a0a98d7e4c7f4eac525fcf300629db582b6 (diff) | |
cleanup
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 |