summaryrefslogtreecommitdiff
path: root/Network/HTTP/Conduit/Request.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Network/HTTP/Conduit/Request.hs')
-rw-r--r--Network/HTTP/Conduit/Request.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Network/HTTP/Conduit/Request.hs b/Network/HTTP/Conduit/Request.hs
index e6e8876..854fbc6 100644
--- a/Network/HTTP/Conduit/Request.hs
+++ b/Network/HTTP/Conduit/Request.hs
@@ -36,6 +36,7 @@ import qualified Data.ByteString.Char8 as S8
import qualified Data.ByteString.Lazy as L
import qualified Network.HTTP.Types as W
+import Network.Socks5 (SocksConf)
import Control.Exception (Exception, SomeException, toException)
import Control.Failure (Failure (failure))
@@ -72,6 +73,8 @@ data Request m = Request
, requestBody :: RequestBody m
, proxy :: Maybe Proxy
-- ^ Optional HTTP proxy.
+ , socksProxy :: Maybe SocksConf
+ -- ^ Optional SOCKS proxy.
, rawBody :: Bool
-- ^ If @True@, a chunked and\/or gzipped body will not be
-- decoded. Use with caution.
@@ -165,6 +168,7 @@ instance Default (Request m) where
, requestBody = RequestBodyLBS L.empty
, method = "GET"
, proxy = Nothing
+ , socksProxy = Nothing
, rawBody = False
, decompress = browserDecompress
, redirectCount = 10