From 51ce7fcaf13856f13155db0d86b874713a8d2ea6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 4 Sep 2013 21:37:13 -0400
Subject: [PATCH] fix warning

---
 Logs/Location.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Logs/Location.hs b/Logs/Location.hs
index 1289af3216..f751c00de5 100644
--- a/Logs/Location.hs
+++ b/Logs/Location.hs
@@ -30,9 +30,9 @@ import Annex.UUID
 
 {- Log a change in the presence of a key's value in current repository. -}
 logStatus :: Key -> LogStatus -> Annex ()
-logStatus key status = do
+logStatus key s = do
 	u <- getUUID
-	logChange key u status
+	logChange key u s
 
 {- Log a change in the presence of a key's value in a repository. -}
 logChange :: Key -> UUID -> LogStatus -> Annex ()