twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix GHC warning: -Wdeprecations

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-05-21 14:13:01 +02:00
parent bf55122a82
commit ea09fc2bf4
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Util/Scratchpad.hs
View File

@@ -26,6 +26,7 @@ module XMonad.Util.Scratchpad (
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.NamedScratchpad
import XMonad.Util.WorkspaceCompare (filterOutWs)
-- $usage
@@ -111,10 +112,8 @@ scratchpadManageHook rect = namedScratchpadManageHook [NS "" "" scratchpadQuery
-- | Transforms a workspace list containing the SP workspace into one that
-- doesn't contain it. Intended for use with logHooks.
scratchpadFilterOutWorkspace :: [WindowSpace] -> [WindowSpace]
scratchpadFilterOutWorkspace = namedScratchpadFilterOutWorkspace
scratchpadFilterOutWorkspace = filterOutWs [scratchpadWorkspaceTag]
scratchpadDefaultRect :: W.RationalRect
scratchpadDefaultRect = W.RationalRect 0.25 0.375 0.5 0.25