From 8472c2d00fcac80adcb9298e3c0a8266c3b40f46 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Mon, 9 Mar 2020 22:55:11 +0100
Subject: [PATCH] Simplify signalEventPipe

---
 src/QBar/Util.hs | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/src/QBar/Util.hs b/src/QBar/Util.hs
index 0ca48db..8b94dda 100644
--- a/src/QBar/Util.hs
+++ b/src/QBar/Util.hs
@@ -7,15 +7,8 @@ import Pipes
 import System.Random
 
 -- Pipe that signals an 'Event' after every value that passes through
-signalPipe :: MonadIO m => Event.Event -> Pipe a a m r
-signalPipe event = signalPipe'
-  where
-    signalPipe' :: MonadIO m => Pipe a a m r
-    signalPipe' = do
-      value <- await
-      yield value
-      liftIO $ Event.signal event
-      signalPipe'
+signalEventPipe :: MonadIO m => Event.Event -> Pipe a a m r
+signalEventPipe event = forever $ (yield =<< await) >> liftIO (Event.signal event)
 
 randomIdentifier :: MonadIO m => m Text
 randomIdentifier = liftIO $ T.pack <$> replicateM 8 randomCharacter
-- 
GitLab