summaryrefslogtreecommitdiff
path: root/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Config.hs')
-rw-r--r--Config.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/Config.hs b/Config.hs
index ad67a9a0d..d37989e66 100644
--- a/Config.hs
+++ b/Config.hs
@@ -86,6 +86,14 @@ setDirect b = do
setConfig (annexConfig "direct") (Git.Config.boolConfig b)
Annex.changeGitConfig $ \c -> c { annexDirect = b }
+crippledFileSystem :: Annex Bool
+crippledFileSystem = annexCrippledFileSystem <$> Annex.getGitConfig
+
+setCrippledFileSystem :: Bool -> Annex ()
+setCrippledFileSystem b = do
+ setConfig (annexConfig "crippledfilesystem") (Git.Config.boolConfig b)
+ Annex.changeGitConfig $ \c -> c { annexCrippledFileSystem = b }
+
{- Gets the http headers to use. -}
getHttpHeaders :: Annex [String]
getHttpHeaders = do