diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-17 12:08:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-17 12:08:59 -0400 |
commit | 76ba2d003072da67bd9b0fb5b84bf7a268a956ee (patch) | |
tree | de6220b84b630041ced52b50b8dd84fb58804424 /Commands.hs | |
parent | ae4d20d157eb288046dddf4555bfc9f2660ed675 (diff) |
reorg
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 9 |
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 |