Skip to content
Snippets Groups Projects
Commit 0578f1e1 authored by Jens Nolte's avatar Jens Nolte
Browse files

Run SignalBlockConfiguration finalizer in BarIO

parent d75b2d5b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 2 deletions
src/QBar/BlockHelper.hs
+ 3
− 2
View file @ 0578f1e1
...@@ -89,7 +89,7 @@ data SignalBlockConfiguration c p = SignalBlockConfiguration { ...@@ -89,7 +89,7 @@ data SignalBlockConfiguration c p = SignalBlockConfiguration {
signalThread :: Maybe (c -> (p -> IO ()) -> BarIO ()), signalThread :: Maybe (c -> (p -> IO ()) -> BarIO ()),
signalBlock :: c -> SignalBlock p, signalBlock :: c -> SignalBlock p,
interval :: Maybe Interval, interval :: Maybe Interval,
finalize :: c -> IO () finalize :: c -> BarIO ()
} }
runSignalBlockConfiguration :: forall c p. SignalBlockConfiguration c p -> Block runSignalBlockConfiguration :: forall c p. SignalBlockConfiguration c p -> Block
...@@ -118,7 +118,8 @@ runSignalBlockConfiguration SignalBlockConfiguration{initialize, signalThread, s ...@@ -118,7 +118,8 @@ runSignalBlockConfiguration SignalBlockConfiguration{initialize, signalThread, s
liftIO $ do liftIO $ do
cancel userTask cancel userTask
cancel intervalTask cancel intervalTask
finalize context
liftBarIO $ finalize context
exitBlock exitBlock
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment