diff options
author | 2012-12-12 19:20:38 -0400 | |
---|---|---|
committer | 2012-12-12 19:20:38 -0400 | |
commit | 3e55a8f164d67d5bd1ef86ae2f38fb2c6c3a51b2 (patch) | |
tree | a3115943cd1b5a86f9419a8042f469655234937a /Annex/Content.hs | |
parent | db6cbec803a17d8e7eebdd3443713b8ea6ddb091 (diff) |
direct mode committing
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 61f521bd1..980321721 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -10,7 +10,6 @@ module Annex.Content ( inAnnexSafe, lockContent, calcGitLink, - logStatus, getViaTmp, getViaTmpUnchecked, withTmp, @@ -33,7 +32,6 @@ import System.IO.Unsafe (unsafeInterleaveIO) import Common.Annex import Logs.Location -import Annex.UUID import qualified Git import qualified Git.Config import qualified Annex @@ -132,13 +130,6 @@ calcGitLink file key = do where whoops = error $ "unable to normalize " ++ file -{- Updates the Logs.Location when a key's presence changes in the current - - repository. -} -logStatus :: Key -> LogStatus -> Annex () -logStatus key status = do - u <- getUUID - logChange key u status - {- Runs an action, passing it a temporary filename to get, - and if the action succeeds, moves the temp file into - the annex as a key's content. -} |