aboutsummaryrefslogtreecommitdiff
path: root/Commands.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-17 12:08:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-17 12:08:59 -0400
commit76ba2d003072da67bd9b0fb5b84bf7a268a956ee (patch)
treede6220b84b630041ced52b50b8dd84fb58804424 /Commands.hs
parentae4d20d157eb288046dddf4555bfc9f2660ed675 (diff)
reorg
Diffstat (limited to 'Commands.hs')
-rw-r--r--Commands.hs9
1 files changed, 1 insertions, 8 deletions
diff --git a/Commands.hs b/Commands.hs
index 62376e4dd..2ff8d0d7b 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -221,14 +221,7 @@ describeCmd description = do
gitAdd log $ Just $ "description for UUID " ++ (show u)
liftIO $ putStrLn "description set"
-{- Updates the LocationLog when a key's presence changes. -}
-logStatus :: Key -> LogStatus -> Annex ()
-logStatus key status = do
- g <- Annex.gitRepo
- u <- getUUID g
- f <- liftIO $ logChange g key u status
- gitAdd f Nothing -- all logs are committed at end
-
+-- helpers
inBackend file yes no = do
r <- Backend.lookupFile file
case (r) of