Revert "Experimental ability to pin a window using Mod+p"

This reverts commit 87b103a4995fd2b6bbd1e72c446fd789caf5a050.

1 files changed, 2 insertions, 9 deletions

diff --git a/src/Rahm/Desktop/Hooks/WindowChange.hs b/src/Rahm/Desktop/Hooks/WindowChange.hs
index 0902f53..32c854b 100644
--- a/src/Rahm/Desktop/Hooks/WindowChange.hs
+++ b/src/Rahm/Desktop/Hooks/WindowChange.hs
@@ -26,18 +26,11 @@ import qualified XMonad.Util.ExtensibleState as XS (get, put)
 type WindowStack = StackSet WorkspaceId () Window ScreenId ScreenDetail
 
 -- Type of hook. Takes the last WindowStack and the new WindowStack
-newtype StackChangeHook = StackChangeHook (WindowStack -> WindowStack -> X ())
+type StackChangeHook = WindowStack -> WindowStack -> X ()
 
 newtype LastState = LastState (Maybe WindowStack)
   deriving (Read, Show)
 
-instance Semigroup StackChangeHook where
-  StackChangeHook f1 <> StackChangeHook f2 =
-    StackChangeHook $ \l c -> f1 l c >> f2 l c
-
-instance Monoid StackChangeHook where
-  mempty = StackChangeHook $ \_ _ -> return ()
-
 instance Default LastState where
   def = LastState def
 
@@ -52,7 +45,7 @@ instance ExtensionClass LastState where
 --
 -- If the first window is Nothing, this is the first time XMonad started.
 withStackChangeHook :: StackChangeHook -> XConfig l -> XConfig l
-withStackChangeHook (StackChangeHook fn) config =
+withStackChangeHook fn config =
   config
     { logHook = do
         logHook config