From 0cbbf0da793f6bbffe989007a70953a7593e6841 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 18 Feb 2012 11:54:47 -0400 Subject: [PATCH] warning --- Logs/Web.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Logs/Web.hs b/Logs/Web.hs index 5a2f6e57e9..607c81c5bf 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