From 0578f1e1f6577913f15307262425e4896d49c3b8 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Tue, 10 Mar 2020 20:25:06 +0100
Subject: [PATCH] Run SignalBlockConfiguration finalizer in BarIO
---
src/QBar/BlockHelper.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/QBar/BlockHelper.hs b/src/QBar/BlockHelper.hs
index 0fda979..2109db0 100644
--- a/src/QBar/BlockHelper.hs
+++ b/src/QBar/BlockHelper.hs
@@ -89,7 +89,7 @@ data SignalBlockConfiguration c p = SignalBlockConfiguration {
signalThread :: Maybe (c -> (p -> IO ()) -> BarIO ()),
signalBlock :: c -> SignalBlock p,
interval :: Maybe Interval,
- finalize :: c -> IO ()
+ finalize :: c -> BarIO ()
}
runSignalBlockConfiguration :: forall c p. SignalBlockConfiguration c p -> Block
@@ -118,7 +118,8 @@ runSignalBlockConfiguration SignalBlockConfiguration{initialize, signalThread, s
liftIO $ do
cancel userTask
cancel intervalTask
- finalize context
+
+ liftBarIO $ finalize context
exitBlock
--
GitLab