diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-29 18:51:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-29 19:13:00 -0400 |
| commit | 7a53fb249f0c02762d8c13f413e24c5c250167dd (patch) | |
| tree | b612c5a8b9c630561ae1ff02dd8cd6c076881f19 /Command/Log.hs | |
| parent | d3c895b8b328685541cf41e025cff17f94b258b1 (diff) | |
refactor git-annex branch log filename code into central location
Having one module that knows about all the filenames used on the branch
allows working back from an arbitrary filename to enough information about
it to implement dropping dead remotes and doing other log file compacting
as part of a forget transition.
Diffstat (limited to 'Command/Log.hs')
| -rw-r--r-- | Command/Log.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Log.hs b/Command/Log.hs index 2d4819f7f..f3a5becb8 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -17,7 +17,7 @@ import Data.Char import Common.Annex import Command -import qualified Logs.Location +import Logs import qualified Logs.Presence import Annex.CatFile import qualified Annex.Branch @@ -135,7 +135,7 @@ getLog :: Key -> [CommandParam] -> Annex [String] getLog key os = do top <- fromRepo Git.repoPath p <- liftIO $ relPathCwdToFile top - let logfile = p </> Logs.Location.logFile key + let logfile = p </> locationLogFile key inRepo $ pipeNullSplitZombie $ [ Params "log -z --pretty=format:%ct --raw --abbrev=40" , Param "--remove-empty" |