From 4b9cbd2e52a1b15addf24c12eda7d43fe5b0422c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 13 Dec 2012 15:44:56 -0400
Subject: added direct and indirect commands

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

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 248a169ad..66b8dc124 100644
--- a/Config.hs
+++ b/Config.hs
@@ -121,6 +121,9 @@ isDirect :: Annex Bool
 isDirect = fromMaybe False . Git.Config.isTrue <$>
 	getConfig (annexConfig "direct") ""
 
+setDirect :: Bool -> Annex ()
+setDirect b = setConfig (annexConfig "direct") (if b then "true" else "false")
+
 {- Gets annex.httpheaders or annex.httpheaders-command setting,
  - splitting it into lines. -}
 getHttpHeaders :: Annex [String]
-- 
cgit v1.2.3