sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 01:14:51 +09:00
Code Issues Activity

Instead of printing SSH messages, logDebug them

Browse source
This commit is contained in:
fr33domlover 2016-03-09 22:38:28 +00:00
parent fc4690324c
commit f7025f9c15
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Ssh.hs
View file

@ -100,7 +100,7 @@ authorize (PublicKey name key) = do
handle :: Bool -> ChannelRequest -> Channel () handle :: Bool -> ChannelRequest -> Channel ()
handle wantReply request = do handle wantReply request = do
liftIO $ print request $logDebugS src $ pack $ show request
chanFail wantReply "I don't execute any commands yet, come back later" chanFail wantReply "I don't execute any commands yet, come back later"
ready :: LogFunc -> IO () ready :: LogFunc -> IO ()