diff options
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 () |