From 3cd5dba66108abe1dd1a94f9f2ad86a585594580 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Er=C3=A8be?= <romain.gerard@erebe.eu>
Date: Mon, 30 May 2016 17:27:04 +0200
Subject: [PATCH] add hslogger

---
 src/Tunnel.hs  | 2 +-
 wstunnel.cabal | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Tunnel.hs b/src/Tunnel.hs
index 2ec7bba..a7cd1cb 100644
--- a/src/Tunnel.hs
+++ b/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')
diff --git a/wstunnel.cabal b/wstunnel.cabal
index d39ebb5..11aaa89 100644
--- a/wstunnel.cabal
+++ b/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