add hslogger

src/Tunnel.hs

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

wstunnel.cabal

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