From ca69574cfe49991a2cf941de22ead3d4e0be56c9 Mon Sep 17 00:00:00 2001
From: Alex Hirzel <alex@hirzel.us>
Date: Sun, 3 Mar 2019 10:59:58 -0500
Subject: [PATCH] Actions.GroupNavigation: add CMS import

---
 XMonad/Actions/GroupNavigation.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/XMonad/Actions/GroupNavigation.hs b/XMonad/Actions/GroupNavigation.hs
index 5f8c126a..63acc990 100644
--- a/XMonad/Actions/GroupNavigation.hs
+++ b/XMonad/Actions/GroupNavigation.hs
@@ -34,6 +34,7 @@ module XMonad.Actions.GroupNavigation ( -- * Usage
                                       ) where
 
 import Control.Monad.Reader
+import Control.Monad.State
 import Data.Foldable as Fold
 import Data.Map as Map
 import Data.Sequence as Seq
@@ -233,7 +234,7 @@ findM cond xs = findM' cond (viewl xs)
 isOnAnyVisibleWS :: Query Bool
 isOnAnyVisibleWS = do
   w <- ask
-  ws <- liftX $ XS.gets windowset
+  ws <- liftX $ gets windowset
   let allVisible = concat $ maybe [] SS.integrate . SS.stack . SS.workspace <$> SS.current ws:SS.visible ws
       visibleWs = w `elem` allVisible
       unfocused = maybe True (w /=) $ SS.peek ws