From 3a69632859e929d3d2292da9528a89346b1602a2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 29 Nov 2012 17:01:07 -0400
Subject: dropping from web

---
 Logs/Web.hs | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

(limited to 'Logs')

diff --git a/Logs/Web.hs b/Logs/Web.hs
index c2a4deb7d..7cfad8648 100644
--- a/Logs/Web.hs
+++ b/Logs/Web.hs
@@ -8,9 +8,9 @@
 module Logs.Web (
 	URLString,
 	webUUID,
-	setUrl,
+	getUrls,
 	setUrlPresent,
-	getUrls
+	setUrlMissing,
 ) where
 
 import Common.Annex
@@ -45,16 +45,13 @@ getUrls key = go $ urlLog key : oldurlLogs key
 			then go ls
 			else return us
 
-{- Records a change in an url for a key. -}
-setUrl :: Key -> URLString -> LogStatus -> Annex ()
-setUrl key url status = do
+setUrlPresent :: Key -> URLString -> Annex ()
+setUrlPresent key url = do
 	us <- getUrls key
-	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)
+	unless (url `elem` us) $ do
+		addLog (urlLog key) =<< logNow InfoPresent url
+		-- update location log to indicate that the web has the key
+		logChange key webUUID InfoPresent
 
-setUrlPresent :: Key -> URLString -> Annex ()
-setUrlPresent key url = setUrl key url InfoPresent
+setUrlMissing :: Key -> URLString -> Annex ()
+setUrlMissing key url = addLog (urlLog key) =<< logNow InfoMissing url
-- 
cgit v1.2.3