From 9f9f1decca4a06d81ce97b64ef1a06fda3b8efad Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 24 Feb 2014 22:00:25 -0400 Subject: add UrlOptions sum type --- Config.hs | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs index 1510f7a74..10d4fd190 100644 --- a/Config.hs +++ b/Config.hs @@ -79,14 +79,3 @@ 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, and any configured command-line options. -} -getHttpHeadersOptions :: Annex ([String], [CommandParam]) -getHttpHeadersOptions = (,) <$> headers <*> options - where - headers = do - v <- annexHttpHeadersCommand <$> Annex.getGitConfig - case v of - Just cmd -> lines <$> liftIO (readProcess "sh" ["-c", cmd]) - Nothing -> annexHttpHeaders <$> Annex.getGitConfig - options = map Param . annexWebOptions <$> Annex.getGitConfig -- cgit v1.2.3