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
|
@ -32,7 +32,7 @@ describeUUID :: UUID -> UUIDDesc -> Annex ()
|
|||
describeUUID uuid desc = do
|
||||
c <- liftIO currentVectorClock
|
||||
Annex.Branch.change uuidLog $
|
||||
buildLog buildUUIDDesc . changeLog c uuid desc . parseUUIDLog
|
||||
buildLogOld buildUUIDDesc . changeLog c uuid desc . parseUUIDLog
|
||||
|
||||
{- The map is cached for speed. -}
|
||||
uuidDescMap :: Annex UUIDDescMap
|
||||
|
@ -53,4 +53,4 @@ uuidDescMapLoad = do
|
|||
preferold = flip const
|
||||
|
||||
parseUUIDLog :: L.ByteString -> Log UUIDDesc
|
||||
parseUUIDLog = parseLog (UUIDDesc <$> A.takeByteString)
|
||||
parseUUIDLog = parseLogOld (UUIDDesc <$> A.takeByteString)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue