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

add hslogger

Browse source
This commit is contained in:
Erèbe 2016-05-30 17:27:04 +02:00
parent 6d0eea8328
commit 3cd5dba661
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tunnel.hs
View file

@ -100,7 +100,7 @@ connectionToStream :: Connection -> IO WS.Stream
connectionToStream Connection{..} = WS.makeStream read (write . toStrict . fromJust) connectionToStream Connection{..} = WS.makeStream read (write . toStrict . fromJust)
runTunnelingClientWith :: TunnelSettings -> (Connection -> IO ()) -> (Connection -> IO ()) runTunnelingClientWith :: TunnelSettings -> (Connection -> IO ()) -> (Connection -> IO ())
runTunnelingClientWith info@TunnelSettings{..} app = \conn -> do runTunnelingClientWith info@TunnelSettings{..} app conn = do
stream <- connectionToStream conn stream <- connectionToStream conn
void $ WS.runClientWithStream stream serverHost (toPath info) WS.defaultConnectionOptions [] $ \conn' -> void $ WS.runClientWithStream stream serverHost (toPath info) WS.defaultConnectionOptions [] $ \conn' ->
app (toConnection conn') app (toConnection conn')

3
wstunnel.cabal
View file

@ -26,6 +26,7 @@ library
, websockets , websockets
, network-conduit-tls , network-conduit-tls
, connection , connection
, hslogger
default-language: Haskell2010 default-language: Haskell2010
@ -38,6 +39,8 @@ executable wstunnel
, cmdargs , cmdargs
, classy-prelude , classy-prelude
, bytestring , bytestring
, hslogger
default-language: Haskell2010 default-language: Haskell2010
test-suite wstunnel-test test-suite wstunnel-test