6280af2901
Especially from borg, where the content identifier logs all end up being the same identical file! But also, for other imports, the location tracking logs can, in some cases, be identical files. Bonus optimisation: Avoid looking up (and parsing when set) GIT_ANNEX_VECTOR_CLOCK env var every time a log is written to. Although the lookup does happen at startup even when no log will be written now.
38 lines
974 B
Haskell
38 lines
974 B
Haskell
{- git-annex single-value log
|
|
-
|
|
- This is used to store a value in a way that can be union merged.
|
|
-
|
|
- A line of the log will look like: "timestamp value"
|
|
-
|
|
- The line with the newest timestamp wins.
|
|
-
|
|
- Copyright 2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Logs.SingleValue (
|
|
module Logs.SingleValue.Pure,
|
|
readLog,
|
|
getLog,
|
|
setLog,
|
|
) where
|
|
|
|
import Annex.Common
|
|
import qualified Annex.Branch
|
|
import Logs.SingleValue.Pure
|
|
import Annex.VectorClock
|
|
|
|
import qualified Data.Set as S
|
|
|
|
readLog :: (Ord v, SingleValueSerializable v) => RawFilePath -> Annex (Log v)
|
|
readLog = parseLog <$$> Annex.Branch.get
|
|
|
|
getLog :: (Ord v, SingleValueSerializable v) => RawFilePath -> Annex (Maybe v)
|
|
getLog = newestValue <$$> readLog
|
|
|
|
setLog :: (SingleValueSerializable v) => RawFilePath -> v -> Annex ()
|
|
setLog f v = do
|
|
c <- currentVectorClock
|
|
let ent = LogEntry c v
|
|
Annex.Branch.change f $ \_old -> buildLog (S.singleton ent)
|