Do not generate extra click events (#267)

fjvallarino · May 15, 2023 · ed81c98 · ed81c98
1 parent a36492c
commit ed81c98
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/Monomer/Widgets/Containers/Box.hs b/src/Monomer/Widgets/Containers/Box.hs
@@ -430,9 +430,7 @@ makeBox config state = widget where
 
     ButtonAction point btn BtnReleased clicks
       | clicks > 1 && not (null reqs) && inChildVp point -> result where
-        reqsA = _boxOnClickReq config
-        reqsB = _boxOnBtnReleasedReq config <*> pure btn <*> pure clicks
-        reqs = reqsA <> reqsB
+        reqs = _boxOnBtnReleasedReq config <*> pure btn <*> pure clicks
         result = Just (resultReqs node reqs)
 
     ButtonAction point btn BtnReleased clicks