summaryrefslogtreecommitdiff
path: root/Logs/Web.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-11-09 01:15:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-11-09 01:33:20 -0400
commit56b8194470f0ddc1b3e1c51da8ca55a5c9c2eb05 (patch)
treea03330e0fd21dc8f2f433fb3f5b568418037db8c /Logs/Web.hs
parentbf460a0a98d7e4c7f4eac525fcf300629db582b6 (diff)
cleanup
Diffstat (limited to 'Logs/Web.hs')
-rw-r--r--Logs/Web.hs3
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