diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-04 21:37:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-04 21:37:13 -0400 |
| commit | 344a36eaaf7221f63495da641995360bbda327e0 (patch) | |
| tree | d12e4cf0e4c72d979e31134167e74b2562e2b05b | |
| parent | 5fb17c2c28288ae2a663d2ce5ec32ff627d608b5 (diff) | |
fix warning
| -rw-r--r-- | Logs/Location.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |