annex.direct config setting

1 files changed, 5 insertions, 0 deletions

diff --git a/Config.hs b/Config.hs
index 11b5f4c93..4658531cf 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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]