support for storing files in direct mode

This commit is contained in:
Joey Hess 2012-12-07 14:40:31 -04:00
parent 2adb38aa59
commit 3898d8c091
3 changed files with 56 additions and 13 deletions

View file

@ -117,8 +117,8 @@ getDiskReserve = fromMaybe megabyte . readSize dataUnits
megabyte = 1000000
{- Gets annex.direct setting. -}
getDirect :: Annex Bool
getDirect = fromMaybe False . Git.Config.isTrue <$>
isDirect :: Annex Bool
isDirect = fromMaybe False . Git.Config.isTrue <$>
getConfig (annexConfig "direct") ""
{- Gets annex.httpheaders or annex.httpheaders-command setting,