added direct and indirect commands

1 files changed, 3 insertions, 0 deletions

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]