added annex.secure-erase-command config option.

This commit is contained in:
Joey Hess 2014-01-24 12:58:52 -04:00
parent 5a21da4955
commit b93e485ef1
4 changed files with 25 additions and 2 deletions

View file

@ -48,6 +48,7 @@ data GitConfig = GitConfig
, annexFsckNudge :: Bool
, annexAutoUpgrade :: AutoUpgrade
, annexExpireUnused :: Maybe (Maybe Duration)
, annexSecureEraseCommand :: Maybe String
, coreSymlinks :: Bool
, gcryptId :: Maybe String
}
@ -79,6 +80,7 @@ extractGitConfig r = GitConfig
, annexAutoUpgrade = toAutoUpgrade $ getmaybe (annex "autoupgrade")
, annexExpireUnused = maybe Nothing Just . parseDuration
<$> getmaybe (annex "expireunused")
, annexSecureEraseCommand = getmaybe (annex "secure-erase-command")
, coreSymlinks = getbool "core.symlinks" True
, gcryptId = getmaybe "core.gcrypt-id"
}