http-reverse-proxy 0.1.0.5 → 0.1.0.6

raw patch · 2 files changed

+12/−12 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 +11/−11

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

@@ -21,21 +21,21 @@         it "works" $ do             let content = "mainApp"             manager <- HC.newManager HC.def-            forkIO $ run 5000 $ const $ return $ responseLBS status200 [] content-            forkIO $ run 5001 $ waiProxyTo (const $ return $ Right $ ProxyDest "localhost" 5000) defaultOnExc manager-            forkIO $ runTCPServer (serverSettings 5002 "*") (rawProxyTo (const $ return $ Right $ ProxyDest "localhost" 5001))+            forkIO $ run 15000 $ const $ return $ responseLBS status200 [] content+            forkIO $ run 15001 $ waiProxyTo (const $ return $ Right $ ProxyDest "localhost" 15000) defaultOnExc manager+            forkIO $ runTCPServer (serverSettings 15002 "*") (rawProxyTo (const $ return $ Right $ ProxyDest "localhost" 15001))             threadDelay 100000-            lbs <- HC.simpleHttp "http://localhost:5002"+            lbs <- HC.simpleHttp "http://localhost:15002"             lbs `shouldBe` content         it "deals with streaming data" $ do             manager <- HC.newManager HC.def-            forkIO $ run 5003 $ const $ return $ ResponseSource status200 [] $ forever $ do+            forkIO $ run 15003 $ const $ return $ ResponseSource status200 [] $ forever $ do                 yield $ Chunk $ fromByteString "hello"                 yield Flush                 liftIO $ threadDelay 10000000-            forkIO $ run 5004 $ waiProxyTo (const $ return $ Right $ ProxyDest "localhost" 5003) defaultOnExc manager+            forkIO $ run 15004 $ waiProxyTo (const $ return $ Right $ ProxyDest "localhost" 15003) defaultOnExc manager             threadDelay 100000-            req <- HC.parseUrl "http://localhost:5004"+            req <- HC.parseUrl "http://localhost:15004"             mbs <- runResourceT $ timeout 1000000 $ do                 res <- HC.http req manager                 HC.responseBody res $$+- await@@ -46,9 +46,9 @@             manager <- HC.newManager HC.def             let waiApp = const $ return $ responseLBS status200 [] content                 rawApp = waiToRaw waiApp-            forkIO $ runTCPServer (serverSettings 6000 "*") (rawProxyTo (const $ return $ Left rawApp))+            forkIO $ runTCPServer (serverSettings 16000 "*") (rawProxyTo (const $ return $ Left rawApp))             threadDelay 100000-            lbs <- HC.simpleHttp "http://localhost:6000"+            lbs <- HC.simpleHttp "http://localhost:16000"             lbs `shouldBe` content         it "sends files" $ do             let content = "PONG"@@ -57,7 +57,7 @@             manager <- HC.newManager HC.def             let waiApp = const $ return $ ResponseFile status200 [] fp Nothing                 rawApp = waiToRaw waiApp-            forkIO $ runTCPServer (serverSettings 6001 "*") (rawProxyTo (const $ return $ Left rawApp))+            forkIO $ runTCPServer (serverSettings 16001 "*") (rawProxyTo (const $ return $ Left rawApp))             threadDelay 100000-            lbs <- HC.simpleHttp "http://localhost:6001"+            lbs <- HC.simpleHttp "http://localhost:16001"             lbs `shouldBe` L8.pack content