From 0ec27e9d2718687496ee5398a7a7985f2f1ff61a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Er=C3=A8be=20-=20Romain=20Gerard?= Date: Thu, 28 Dec 2017 10:17:45 +0100 Subject: [PATCH] fix typo in debug log in the HTTP proxy Former-commit-id: 3a5b68b568058848a84c5801e99be1e3d11f2675 Former-commit-id: b9c43a5b446e9c3fde4e9016864e036b1c97dfba [formerly 7cf2553244e5ff0af1c729564905ab05d072720f] [formerly 0a79f27e64df05797d06a8da9bf7543c84e86ed7 [formerly 5599e859e906704ab0d6b0a65658a4aeb8403f8e [formerly 5599e859e906704ab0d6b0a65658a4aeb8403f8e [formerly 5599e859e906704ab0d6b0a65658a4aeb8403f8e [formerly 843382a22560623c415f2e527be2a1bb1bb87772]]]]] Former-commit-id: 75969df6de5f2c3ee08f81dc1a4d457d492b87ed [formerly 592aadc955cf333a8e23f7b75707159ed9510d8a] Former-commit-id: 94cebea834834afcb565978fd8a188af8afa86a6 Former-commit-id: 8549165bda8f705454ee2f2dedc81276918c4b71 Former-commit-id: 0761f82c3eb56fded8c6f5c4ed4b4056625948e9 Former-commit-id: 74c23dae521058b04ea41ac90e9ba06f76ecd6d1 [formerly 3e7d2e15cc64a4ddb87f24d817a64c714a7f6c81] Former-commit-id: e3a78bcbc38400fd94f9cc0dcf7cd4517000baa4 --- src/HttpProxy.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/HttpProxy.hs b/src/HttpProxy.hs index 7b0dd5f..e461429 100644 --- a/src/HttpProxy.hs +++ b/src/HttpProxy.hs @@ -34,7 +34,7 @@ data HttpProxySettings = HttpProxySettings httpProxyConnection :: MonadError Error m => HttpProxySettings -> (HostName, PortNumber) -> (Connection -> IO (m a)) -> IO (m a) httpProxyConnection HttpProxySettings{..} (host, port) app = onError $ do - debug $ "Oppening tcp connection to proxy " <> show proxyHost <> ":" <> show proxyPort + debug $ "Opening tcp connection to proxy " <> show proxyHost <> ":" <> show proxyPort ret <- N.runTCPClient (N.clientSettingsTCP (fromIntegral proxyPort) (fromString proxyHost)) $ \conn' -> do let conn = toConnection conn'