Haskell reverse proxy using Network.HTTP.ReverseProxy

reverseProxy.hs

import           Protolude
import qualified Network.HTTP.ReverseProxy as Rp
import qualified Network.Wai as W
import qualified Network.Wai.Handler.Warp as Wrp
import qualified Network.HTTP.Client as HC

testProxy :: IO ()
testProxy =
  Wrp.run 3000 =<< revProxyApp

  where
    revProxyApp = do
      mgr <- HC.newManager HC.defaultManagerSettings
      pure $ Rp.waiProxyTo handler Rp.defaultOnExc mgr
      --pure $ Rp.WPRModifiedRequest (req {W.rawPathInfo = "/"}) (Rp.ProxyDest "eu.httpbin.org" 80)


    handler :: W.Request -> IO Rp.WaiProxyResponse
    handler req = do
      print req
      pure . Rp.WPRProxyDest $ Rp.ProxyDest "eu.httpbin.org" 80


--    Rp.rawProxyTo
--        (\headers -> do
--          print headers
--          pure . Right $ Rp.ProxyDest "eu.httpbin.org" 80)
--        appData