diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-12 19:20:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-12 19:20:38 -0400 |
| commit | 3e55a8f164d67d5bd1ef86ae2f38fb2c6c3a51b2 (patch) | |
| tree | a3115943cd1b5a86f9419a8042f469655234937a /Logs | |
| parent | db6cbec803a17d8e7eebdd3443713b8ea6ddb091 (diff) | |
direct mode committing
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Location.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Logs/Location.hs b/Logs/Location.hs index 4273710fc..0f57b6663 100644 --- a/Logs/Location.hs +++ b/Logs/Location.hs @@ -15,6 +15,7 @@ module Logs.Location ( LogStatus(..), + logStatus, logChange, loggedLocations, loggedKeys, @@ -26,6 +27,13 @@ module Logs.Location ( import Common.Annex import qualified Annex.Branch import Logs.Presence +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 + u <- getUUID + logChange key u status {- Log a change in the presence of a key's value in a repository. -} logChange :: Key -> UUID -> LogStatus -> Annex () |