diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 5b3c6e5ef7394dccda96e38d77d07348884ae560..9a783984a87b44c281201b1fdfd3d5d4c669ebbb 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 ()