mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

annex.direct config setting

Browse source
This commit is contained in:
Joey Hess 2012-12-07 13:17:13 -04:00
parent 02bd012587
commit 2adb38aa59
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Config.hs
View file

@ -116,6 +116,11 @@ getDiskReserve = fromMaybe megabyte . readSize dataUnits
where
megabyte = 1000000
{- Gets annex.direct setting. -}
getDirect :: Annex Bool
getDirect = fromMaybe False . Git.Config.isTrue <$>
getConfig (annexConfig "direct") ""
{- Gets annex.httpheaders or annex.httpheaders-command setting,
- splitting it into lines. -}
getHttpHeaders :: Annex [String]