From 2eb7491392613e869805d0efde5dda2b0a76b887 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Sat, 29 Feb 2020 04:12:17 +0100
Subject: [PATCH] Reduce simple do block with sequential composition
---
src/QBar/ControlSocket.hs | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 0e07d86..dae3a79 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
--
GitLab