renamings to make clean when old-format logs are being used
This commit is contained in:
parent
fd304dce60
commit
9887a378fe
17 changed files with 56 additions and 57 deletions
|
@ -27,12 +27,12 @@ recordFingerprint :: Fingerprint -> UUID -> Annex ()
|
|||
recordFingerprint fp uuid = do
|
||||
c <- liftIO currentVectorClock
|
||||
Annex.Branch.change multicastLog $
|
||||
buildLog buildFindgerPrint
|
||||
buildLogOld buildFindgerPrint
|
||||
. changeLog c uuid fp
|
||||
. parseLog fingerprintParser
|
||||
. parseLogOld fingerprintParser
|
||||
|
||||
knownFingerPrints :: Annex (M.Map UUID Fingerprint)
|
||||
knownFingerPrints = simpleMap . parseLog fingerprintParser
|
||||
knownFingerPrints = simpleMap . parseLogOld fingerprintParser
|
||||
<$> Annex.Branch.get activityLog
|
||||
|
||||
fingerprintParser :: A.Parser Fingerprint
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue