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.
73 lines
2.1 KiB
Haskell
73 lines
2.1 KiB
Haskell
{- git-annex repository-global config log
|
|
-
|
|
- Copyright 2017-2019 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Logs.Config (
|
|
ConfigKey(..),
|
|
ConfigValue(..),
|
|
setGlobalConfig,
|
|
unsetGlobalConfig,
|
|
getGlobalConfig,
|
|
loadGlobalConfig,
|
|
) where
|
|
|
|
import Annex.Common
|
|
import Logs
|
|
import Logs.MapLog
|
|
import qualified Annex.Branch
|
|
import Git.Types (ConfigKey(..), ConfigValue(..))
|
|
|
|
import qualified Data.Map as M
|
|
import qualified Data.ByteString as S
|
|
import qualified Data.ByteString.Lazy as L
|
|
import qualified Data.Attoparsec.ByteString.Lazy as A
|
|
import Data.ByteString.Builder
|
|
|
|
setGlobalConfig :: ConfigKey -> ConfigValue -> Annex ()
|
|
setGlobalConfig name new = do
|
|
curr <- getGlobalConfig name
|
|
when (curr /= Just new) $
|
|
setGlobalConfig' name new
|
|
|
|
setGlobalConfig' :: ConfigKey -> ConfigValue -> Annex ()
|
|
setGlobalConfig' name new = do
|
|
c <- currentVectorClock
|
|
Annex.Branch.change configLog $
|
|
buildGlobalConfig . changeMapLog c name new . parseGlobalConfig
|
|
|
|
unsetGlobalConfig :: ConfigKey -> Annex ()
|
|
unsetGlobalConfig name = do
|
|
curr <- getGlobalConfig name
|
|
when (curr /= Nothing) $
|
|
-- set to empty string to unset
|
|
setGlobalConfig' name (ConfigValue mempty)
|
|
|
|
-- Reads the global config log every time.
|
|
-- It's more efficient to use Config.GitConfig.
|
|
getGlobalConfig :: ConfigKey -> Annex (Maybe ConfigValue)
|
|
getGlobalConfig name = M.lookup name <$> loadGlobalConfig
|
|
|
|
buildGlobalConfig :: MapLog ConfigKey ConfigValue -> Builder
|
|
buildGlobalConfig = buildMapLog configkeybuilder valuebuilder
|
|
where
|
|
configkeybuilder (ConfigKey k) = byteString k
|
|
valuebuilder (ConfigValue v) = byteString v
|
|
valuebuilder NoConfigValue = mempty
|
|
|
|
parseGlobalConfig :: L.ByteString -> MapLog ConfigKey ConfigValue
|
|
parseGlobalConfig = parseMapLog configkeyparser valueparser
|
|
where
|
|
configkeyparser = ConfigKey <$> A.takeByteString
|
|
valueparser = ConfigValue <$> A.takeByteString
|
|
|
|
loadGlobalConfig :: Annex (M.Map ConfigKey ConfigValue)
|
|
loadGlobalConfig = M.filter nonempty
|
|
. simpleMap
|
|
. parseGlobalConfig
|
|
<$> Annex.Branch.get configLog
|
|
where
|
|
nonempty (ConfigValue v) = not (S.null v)
|
|
nonempty NoConfigValue = True
|