diff options
Diffstat (limited to 'Logs/Location.hs')
-rw-r--r-- | Logs/Location.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Logs/Location.hs b/Logs/Location.hs index ff874a596..ab29ffcad 100644 --- a/Logs/Location.hs +++ b/Logs/Location.hs @@ -23,16 +23,13 @@ module Logs.Location ( ) where import Common.Annex -import qualified Git import qualified Annex.Branch import Logs.Presence {- Log a change in the presence of a key's value in a repository. -} -logChange :: Git.Repo -> Key -> UUID -> LogStatus -> Annex () -logChange _ key (UUID u) s = addLog (logFile key) =<< logNow s u -logChange repo _ NoUUID _ = error $ - "unknown UUID for " ++ Git.repoDescribe repo ++ - " (have you run git annex init there?)" +logChange :: Key -> UUID -> LogStatus -> Annex () +logChange key (UUID u) s = addLog (logFile key) =<< logNow s u +logChange _ NoUUID _ = return () {- Returns a list of repository UUIDs that, according to the log, have - the value of a key. -} |