hex/wstunnel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix a small typo (#91)

Browse source 
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
This commit is contained in:
contrun 2021-09-17 18:00:41 +08:00 committed by GitHub
parent 025f7e4d21
commit f851d9e361
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Tunnel.hs
View file

@ -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