diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 0e07d86097e745da2e8bc2e6a4aba411cc9b9abe..dae3a79e9eeab998e471fc1043fb1617a177619e 100644
--- a/src/QBar/ControlSocket.hs
+++ b/src/QBar/ControlSocket.hs
@@ -133,10 +133,7 @@ instance IsStream BlockStream where
               prefixedName = prefix <> blockName'
 
       updateBarP :: Bar -> Pipe a a IO ()
-      updateBarP bar = forever $ do
-        v <- await
-        yield v
-        liftIO $ updateBarDefault' bar
+      updateBarP bar = forever $ await >>= yield >> liftIO (updateBarDefault' bar)
 
 
 data Request = Command Command | StartStream StreamType