From dbb57dff1700fcedd4d682829c55ae7abc80613a Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Tue, 29 Mar 2022 14:26:40 -0600
Subject: Fixed bug where multiple configures would override previous
 configures for window-specific bindings

---
 src/Internal/KeysM.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/Internal/KeysM.hs')

diff --git a/src/Internal/KeysM.hs b/src/Internal/KeysM.hs
index dfb1429..f834796 100644
--- a/src/Internal/KeysM.hs
+++ b/src/Internal/KeysM.hs
@@ -28,13 +28,6 @@ class Bindable k where
 
   bind :: k -> BindingBuilder (BindableValue k) a -> BindableMonad k l ()
 
-instance Semigroup (KeysM l ()) where
-  (<>) = mappend
-
-instance Monoid (KeysM l ()) where
-  mempty = return ()
-  mappend = (>>)
-
 runKeys :: KeysM l a -> XConfig l -> Map (KeyMask, KeySym) (X ())
 runKeys (KeysM stateM) config =
   snd $ execState stateM (config, Map.empty)
-- 
cgit