From 774fd979367df590baccb19d0e11b21411ac7bb7 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Tue, 18 Feb 2020 18:18:19 +0100
Subject: [PATCH] Print downstream for ipc client connections when running with
-v
---
src/QBar/ControlSocket.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 5b3c6e5..9a78398 100644
--- a/src/QBar/ControlSocket.hs
+++ b/src/QBar/ControlSocket.hs
@@ -51,7 +51,7 @@ class (ToJSON (Up s), FromJSON (Up s), ToJSON (Down s), FromJSON (Down s)) => Is
sock <- liftIO $ connectIpcSocket options
runEffect (encode (StartStream $ toStreamType s) >-> toSocket sock)
let up = forever (await >>= encode) >-> verbosePrintP >-> toSocket sock
- let down = decodeStreamSafe options (fromSocket sock 4096)
+ let down = decodeStreamSafe options (fromSocket sock 4096 >-> verbosePrintP)
return (up, down)
where
verbosePrintP :: Pipe ByteString ByteString IO ()
--
GitLab