http-reverse-proxy 0.3.1.3 → 0.3.1.4

raw patch · 2 files changed

+12/−1 lines, 2 files

Files

• Network/HTTP/ReverseProxy.hs +11/−0
• http-reverse-proxy.cabal +1/−1

@@ -30,6 +30,8 @@ import Data.Streaming.Network (readLens, AppData) import Data.Functor.Identity (Identity (..)) import Data.Maybe (fromMaybe)+#else+import Data.Conduit.Network (AppData) #endif import Control.Monad.Trans.Control (MonadBaseControl) import Data.Default.Class (def)@@ -88,12 +90,21 @@ -- 4. Pass all bytes across the wire unchanged. -- -- If you need more control, such as modifying the request or response, use 'waiProxyTo'.+#if MIN_VERSION_conduit(1,1,0) rawProxyTo :: (MonadBaseControl IO m, MonadIO m)            => (HT.RequestHeaders -> m (Either (DCN.AppData -> m ()) ProxyDest))            -- ^ How to reverse proxy. A @Left@ result will run the given            -- 'DCN.Application', whereas a @Right@ will reverse proxy to the            -- given host\/port.            -> AppData -> m ()+#else+rawProxyTo :: (MonadBaseControl IO m, MonadIO m)+           => (HT.RequestHeaders -> m (Either (DCN.AppData m -> m ()) ProxyDest))+           -- ^ How to reverse proxy. A @Left@ result will run the given+           -- 'DCN.Application', whereas a @Right@ will reverse proxy to the+           -- given host\/port.+           -> AppData m -> m ()+#endif rawProxyTo getDest appdata = do #if MIN_VERSION_conduit(1,1,0)     (rsrc, headers) <- liftIO $ fromClient $$+ getHeaders

@@ -1,5 +1,5 @@ name:                http-reverse-proxy-version:             0.3.1.3+version:             0.3.1.4 synopsis:            Reverse proxy HTTP requests, either over raw sockets or with WAI description:         Provides a simple means of reverse-proxying HTTP requests. The raw approach uses the same technique as leveraged by keter, whereas the WAI approach performs full request/response parsing via WAI and http-conduit. homepage:            https://github.com/fpco/http-reverse-proxy