diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 378d9575..d4cfafab 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -68,6 +68,9 @@ import Network (withSocketsDo) import Network.HTTP.Conduit (def, newManager) import Network.HTTP.ReverseProxy (ProxyDest (ProxyDest), waiProxyToSettings, wpsTimeout, wpsOnExc) +#if MIN_VERSION_http_reverse_proxy(0, 2, 0) +import qualified Network.HTTP.ReverseProxy as ReverseProxy +#endif import Network.HTTP.Types (status200) import Network.Socket (sClose) import Network.Wai (responseLBS) @@ -120,7 +123,13 @@ reverseProxy opts iappPort = do run (develPort opts) $ waiProxyToSettings (const $ do appPort <- liftIO $ I.readIORef iappPort - return $ Right $ ProxyDest "127.0.0.1" appPort) + return $ +#if MIN_VERSION_http_reverse_proxy(0, 2, 0) + ReverseProxy.WPRProxyDest +#else + Right +#endif + $ ProxyDest "127.0.0.1" appPort) def { wpsOnExc = onExc , wpsTimeout =