From f7025f9c15cd9b48d29ed52dfa2eb4ca093a50d3 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Wed, 9 Mar 2016 22:38:28 +0000
Subject: [PATCH] Instead of `print`ing SSH messages, `logDebug` them

---
 src/Vervis/Ssh.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Vervis/Ssh.hs b/src/Vervis/Ssh.hs
index 24d56b7..10b8e06 100644
--- a/src/Vervis/Ssh.hs
+++ b/src/Vervis/Ssh.hs
@@ -100,7 +100,7 @@ authorize (PublicKey name key) = do
 
 handle :: Bool -> ChannelRequest -> Channel ()
 handle wantReply request = do
-    liftIO $ print request
+    $logDebugS src $ pack $ show request
     chanFail wantReply "I don't execute any commands yet, come back later"
 
 ready :: LogFunc -> IO ()