From f851d9e36197980d61ad14c5fc6798aae8575104 Mon Sep 17 00:00:00 2001 From: contrun Date: Fri, 17 Sep 2021 18:00:41 +0800 Subject: [PATCH] fix a small typo (#91) Former-commit-id: 11a42145603fbce595bb1ee1c08f806367f5ec8c Former-commit-id: d907ff5c00914540f965e9f697ea8161d6896f18 [formerly de80be12e69200139e93f171cc0beb15b4439ae4] [formerly 7445e31ec214419b4eb918952887e83ec319c420 [formerly 17e6bf2d552e209c071f125ebca704950137fc85 [formerly 17e6bf2d552e209c071f125ebca704950137fc85 [formerly 17e6bf2d552e209c071f125ebca704950137fc85 [formerly 993a8f89fb1ff18b7af34c7ed1f1c3c2bd638c77]]]]] Former-commit-id: 2e072ab77dcf7471c4e328c776be61b6a67f3786 [formerly 0a6c4b3605414e3b6ee8315e9bbbba41183ed67c] Former-commit-id: 71e37753c83b7415e79b48075db293bb37243a08 Former-commit-id: 946780edd968de960827ce7be59fc0d408f9b1a7 Former-commit-id: 0a740dbf2d4c83c007261e6fde3244e559c19d4a Former-commit-id: af63522c61af428f45694d5da408ba2ea73f77ef [formerly 13d29099094a9e1c6fde51a746d8df81bd34993a] Former-commit-id: c1102fec17882dcdd7de2936e9137eaef560d300 --- src/Tunnel.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Tunnel.hs b/src/Tunnel.hs index fda1b08..93da3b7 100644 --- a/src/Tunnel.hs +++ b/src/Tunnel.hs @@ -60,7 +60,7 @@ rrunTCPClient cfg app = bracket -- tunnelingClientP :: MonadError Error m => TunnelSettings -> (Connection -> IO (m ())) -> (Connection -> IO (m ())) tunnelingClientP cfg@TunnelSettings{..} app conn = onError $ do - debug "Oppening Websocket stream" + debug "Opening Websocket stream" stream <- connectionToStream conn let headers = if not (null upgradeCredentials) then [("Authorization", "Basic " <> B64.encode upgradeCredentials)] else [] @@ -111,7 +111,7 @@ tlsClientP TunnelSettings{..} app conn = onError $ do -- tcpConnection :: MonadError Error m => TunnelSettings -> (Connection -> IO (m ())) -> IO (m ()) tcpConnection TunnelSettings{..} app = onError $ do - debug $ "Oppening tcp connection to " <> fromString serverHost <> ":" <> show (fromIntegral serverPort :: Int) + debug $ "Opening tcp connection to " <> fromString serverHost <> ":" <> show (fromIntegral serverPort :: Int) ret <- rrunTCPClient (N.clientSettingsTCP (fromIntegral serverPort) (fromString serverHost)) app @@ -126,7 +126,7 @@ tcpConnection TunnelSettings{..} app = onError $ do httpProxyConnection :: MonadError Error m => TunnelSettings -> (Connection -> IO (m ())) -> IO (m ()) httpProxyConnection TunnelSettings{..} app = onError $ do let settings = fromJust proxySetting - debug $ "Oppening tcp connection to proxy " <> show settings + debug $ "Opening tcp connection to proxy " <> show settings ret <- rrunTCPClient (N.clientSettingsTCP (fromIntegral (port settings)) (BC.pack $ host settings)) $ \conn -> do _ <- sendConnectRequest settings conn