twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Actions.GroupNavigation: fix bad import

Browse Source
This commit is contained in:
Alex Hirzel 2019-03-03 10:08:25 -05:00
parent 0cfe3a288e
commit 71fec4f61a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/GroupNavigation.hs
View File

@ -234,8 +234,8 @@ isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do isOnAnyVisibleWS = do
w <- ask w <- ask
ws <- liftX $ gets windowset ws <- liftX $ gets windowset
let allVisible = concat $ maybe [] W.integrate . W.stack . W.workspace <$> W.current ws:W.visible ws let allVisible = concat $ maybe [] SS.integrate . SS.stack . SS.workspace <$> SS.current ws:SS.visible ws
visibleWs = w `elem` allVisible visibleWs = w `elem` allVisible
unfocused = maybe True (w /=) $ W.peek ws unfocused = maybe True (w /=) $ SS.peek ws
return $ visibleWs && unfocused return $ visibleWs && unfocused