http-reverse-proxy 0.1.1 → 0.1.1.1

raw patch · 2 files changed

+8/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• http-reverse-proxy.cabal +1/−1
• test/main.hs +7/−7

@@ -1,5 +1,5 @@ name:                http-reverse-proxy-version:             0.1.1+version:             0.1.1.1 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

@@ -78,9 +78,9 @@             let content = "mainApp"              in withMan $ \manager ->                 withWApp (const $ return $ responseLBS status200 [] content) $ \port1 ->-                withWApp (waiProxyTo (const $ return $ Right $ ProxyDest "localhost" port1) defaultOnExc manager) $ \port2 ->-                withCApp (rawProxyTo (const $ return $ Right $ ProxyDest "localhost" port2)) $ \port3 -> do-                    lbs <- HC.simpleHttp $ "http://localhost:" ++ show port3+                withWApp (waiProxyTo (const $ return $ Right $ ProxyDest "127.0.0.1" port1) defaultOnExc manager) $ \port2 ->+                withCApp (rawProxyTo (const $ return $ Right $ ProxyDest "127.0.0.1" port2)) $ \port3 -> do+                    lbs <- HC.simpleHttp $ "http://127.0.0.1:" ++ show port3                     lbs `shouldBe` content         it "deals with streaming data" $             let app _ = return $ ResponseSource status200 [] $ forever $ do@@ -89,8 +89,8 @@                     liftIO $ threadDelay 10000000              in withMan $ \manager ->                 withWApp app $ \port1 ->-                withWApp (waiProxyTo (const $ return $ Right $ ProxyDest "localhost" port1) defaultOnExc manager) $ \port2 -> do-                    req <- HC.parseUrl $ "http://localhost:" ++ show port2+                withWApp (waiProxyTo (const $ return $ Right $ ProxyDest "127.0.0.1" port1) defaultOnExc manager) $ \port2 -> do+                    req <- HC.parseUrl $ "http://127.0.0.1:" ++ show port2                     mbs <- runResourceT $ timeout 1000000 $ do                         res <- HC.http req manager                         HC.responseBody res $$+- await@@ -101,7 +101,7 @@                 waiApp = const $ return $ responseLBS status200 [] content                 rawApp = waiToRaw waiApp             withCApp (rawProxyTo (const $ return $ Left rawApp)) $ \port -> do-                lbs <- HC.simpleHttp $ "http://localhost:" ++ show port+                lbs <- HC.simpleHttp $ "http://127.0.0.1:" ++ show port                 lbs `shouldBe` content         it "sends files" $ do             let content = "PONG"@@ -110,5 +110,5 @@                 rawApp = waiToRaw waiApp             writeFile fp content             withCApp (rawProxyTo (const $ return $ Left rawApp)) $ \port -> do-                lbs <- HC.simpleHttp $ "http://localhost:" ++ show port+                lbs <- HC.simpleHttp $ "http://127.0.0.1:" ++ show port                 lbs `shouldBe` L8.pack content