From 2ec9b05d818d2e229ffc290144093fa0feaf1e8a Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Fri, 13 Mar 2020 14:27:38 +0100
Subject: [PATCH] Remove event handler of invalidated blocks

---
 src/QBar/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index d66a8dc..e483ff3 100644
--- a/src/QBar/Core.hs
+++ b/src/QBar/Core.hs
@@ -129,7 +129,7 @@ hasEventHandler (Just (_, Just _)) = True
 hasEventHandler _ = False
 
 invalidateBlockState :: BlockState -> BlockState
-invalidateBlockState = (_Just . _1) %~ invalidateBlock
+invalidateBlockState = ((_Just . _2) .~ Nothing) . ((_Just . _1) %~ invalidateBlock)
 
 
 runBarIO :: MonadIO m => Bar -> BarIO r -> m r
-- 
GitLab