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.
This commit is contained in:
parent
6147652cc6
commit
62beaa1a86
12 changed files with 136 additions and 74 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue