summaryrefslogtreecommitdiff
path: root/Logs/Location.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-11-09 01:15:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-11-09 01:33:20 -0400
commit56b8194470f0ddc1b3e1c51da8ca55a5c9c2eb05 (patch)
treea03330e0fd21dc8f2f433fb3f5b568418037db8c /Logs/Location.hs
parentbf460a0a98d7e4c7f4eac525fcf300629db582b6 (diff)
cleanup
Diffstat (limited to 'Logs/Location.hs')
-rw-r--r--Logs/Location.hs9
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. -}