From fe2adaccd1cbf6ba6a4b36dbac9bff7241251a78 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 7 Dec 2012 13:17:13 -0400
Subject: annex.direct config setting

---
 Config.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Config.hs')

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]
-- 
cgit v1.2.3