From 0cbbf0da793f6bbffe989007a70953a7593e6841 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 18 Feb 2012 11:54:47 -0400 Subject: warning --- Logs/Web.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Logs/Web.hs b/Logs/Web.hs index 5a2f6e57e..607c81c5b 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -52,8 +52,8 @@ setUrl key url status = 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) + us' <- getUrls key + logChange key webUUID (if null us' then InfoMissing else InfoPresent) setUrlPresent :: Key -> URLString -> Annex () setUrlPresent key url = setUrl key url InfoPresent -- cgit v1.2.3