add another setting to GitConfig

Annex/Content.hs

@@ -412,7 +412,7 @@ saveState nocommit = doSideAction $ do
 {- Downloads content from any of a list of urls. -}
 downloadUrl :: [Url.URLString] -> FilePath -> Annex Bool
 downloadUrl urls file = do
-	o <- map Param . words <$> getConfig (annexConfig "web-options") ""
+	o <- map Param . annexWebOptions <$> Annex.getGitConfig
 	headers <- getHttpHeaders
 	liftIO $ anyM (\u -> Url.download u headers o file) urls
 

Types/GitConfig.hs

@@ -34,6 +34,7 @@ data GitConfig = GitConfig
 	, annexHttpHeaders :: [String]
 	, annexHttpHeadersCommand :: Maybe String
 	, annexAutoCommit :: Bool
+	, annexWebOptions :: [String]
 	}
 
 extractGitConfig :: Git.Repo -> GitConfig
@@ -43,7 +44,7 @@ extractGitConfig r = GitConfig
 	, annexDiskReserve = fromMaybe onemegabyte $
 		readSize dataUnits =<< getmaybe "diskreserve"
 	, annexDirect = getbool "direct" False
-	, annexBackends = fromMaybe [] $ words <$> getmaybe "backends"
+	, annexBackends = getwords "backends"
 	, annexQueueSize = getmayberead "queuesize"
 	, annexBloomCapacity = getmayberead "bloomcapacity"
 	, annexBloomAccuracy = getmayberead "bloomaccuracy"
@@ -53,6 +54,7 @@ extractGitConfig r = GitConfig
 	, annexHttpHeaders = getlist "http-headers"
 	, annexHttpHeadersCommand = getmaybe "http-headers-command"
 	, annexAutoCommit = getbool "autocommit" True
+	, annexWebOptions = getwords "web-options"
 	}
   where
 	get k def = fromMaybe def $ getmayberead k
@@ -61,6 +63,7 @@ extractGitConfig r = GitConfig
 	getmayberead k = readish =<< getmaybe k
 	getmaybe k = Git.Config.getMaybe (key k) r
 	getlist k = Git.Config.getList (key k) r
+	getwords k = fromMaybe [] $ words <$> getmaybe k
 
 	key k = "annex." ++ k