From 78b1ba125ec327512deb4c4c481cdf875d6c7339 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Tue, 12 Apr 2022 11:09:19 -0600
Subject: Clean up Poppable so it's a proper proxy to the underlying layout
 rather than a LayoutModifier.

---
 src/Rahm/Desktop/Keys.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Rahm/Desktop/Keys.hs')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 0ff8da3..5284a9d 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -55,7 +55,7 @@ import Rahm.Desktop.Logger
 import Rahm.Desktop.RebindKeys
 import Rahm.Desktop.Swallow
 import Rahm.Desktop.Layout.Hole (toggleHole)
-import Rahm.Desktop.Layout.Pop (PopMessage(..))
+import Rahm.Desktop.Layout.Pop (togglePop)
 import Rahm.Desktop.Layout.Flip (flipHorizontally, flipVertically)
 import Rahm.Desktop.Layout.Rotate (rotateLayout)
 import Rahm.Desktop.ScreenRotate (screenRotateForward, screenRotateBackward)
@@ -534,7 +534,7 @@ keymap = runKeys $ do
         bind xK_z $ do
           noMod -|- justMod $
             doc "Toggle zoom on the current window." $
-            sendMessage TogglePop
+            sendMessage togglePop
 
         -- Z is reserved to create sub keybindings to do various things.
         -- I don't really use these at the moment.
@@ -546,7 +546,7 @@ keymap = runKeys $ do
     -- modifier.
     shiftMod $
       doc "Toggle zoom on the current window." $
-      sendMessage TogglePop
+      sendMessage togglePop
 
   bind xF86XK_Calculator $ do
     noMod $ spawnX $ terminal config ++ " -t Floating\\ Term -e /usr/bin/env python3"
@@ -636,7 +636,7 @@ mouseMap = runButtons $ do
 
 
       bind button14 $ do
-        noMod $ noWindow $ click >> sendMessage TogglePop
+        noMod $ noWindow $ click >> sendMessage togglePop
 
       bind button15 $ do
         noMod $ noWindow $ spawnX "pavucontrol"
-- 
cgit