@@ -246,6 +246,8 @@ setFork :: (((forall a. IO a -> IO a) -> IO ()) -> IO ()) -> Settings -> Setting
246setFork fork' s = s { settingsFork = fork' }
246setFork fork' s = s { settingsFork = fork' }
248-- | Do not use the PROXY protocol.
248-- | Do not use the PROXY protocol.
249setProxyProtocolNone :: Settings -> Settings
251setProxyProtocolNone :: Settings -> Settings
250setProxyProtocolNone y = y { settingsProxyProtocol = ProxyProtocolNone }
252setProxyProtocolNone y = y { settingsProxyProtocol = ProxyProtocolNone }
@@ -260,6 +262,8 @@ setProxyProtocolNone y = y { settingsProxyProtocol = ProxyProtocolNone }
261-- Only the human-readable header format (version 1) is supported. The binary
263-- Only the human-readable header format (version 1) is supported. The binary
262-- header format (version 2) is /not/ supported.
264-- header format (version 2) is /not/ supported.
263setProxyProtocolRequired :: Settings -> Settings
267setProxyProtocolRequired :: Settings -> Settings
264setProxyProtocolRequired y = y { settingsProxyProtocol = ProxyProtocolRequired }
268setProxyProtocolRequired y = y { settingsProxyProtocol = ProxyProtocolRequired }
@@ -274,5 +278,7 @@ setProxyProtocolRequired y = y { settingsProxyProtocol = ProxyProtocolRequired }
274-- such as if a load balancer health check uses regular
278-- such as if a load balancer health check uses regular
275-- HTTP without the PROXY header, but proxied
279-- HTTP without the PROXY header, but proxied
276-- connections /do/ include the PROXY header.
280-- connections /do/ include the PROXY header.
277setProxyProtocolOptional :: Settings -> Settings
283setProxyProtocolOptional :: Settings -> Settings
278setProxyProtocolOptional y = y { settingsProxyProtocol = ProxyProtocolOptional }
284setProxyProtocolOptional y = y { settingsProxyProtocol = ProxyProtocolOptional }