From 344a36eaaf7221f63495da641995360bbda327e0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 4 Sep 2013 21:37:13 -0400 Subject: fix warning --- Logs/Location.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Logs') diff --git a/Logs/Location.hs b/Logs/Location.hs index 1289af321..f751c00de 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 () -- cgit v1.2.3