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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Config/Arossato.hs
View File

@ -147,8 +147,8 @@ arossatoConfig = do
, ((modMask x , xK_F3 ), shellPrompt def ) , ((modMask x , xK_F3 ), shellPrompt def )
, ((modMask x , xK_F4 ), sshPrompt def ) , ((modMask x , xK_F4 ), sshPrompt def )
, ((modMask x , xK_F5 ), themePrompt def ) , ((modMask x , xK_F5 ), themePrompt def )
, ((modMask x , xK_F6 ), windowPromptGoto def ) , ((modMask x , xK_F6 ), windowPrompt def Goto allWindows )
, ((modMask x , xK_F7 ), windowPromptBring def ) , ((modMask x , xK_F7 ), windowPrompt def Bring allWindows )
, ((modMask x , xK_comma ), prevWS ) , ((modMask x , xK_comma ), prevWS )
, ((modMask x , xK_period), nextWS ) , ((modMask x , xK_period), nextWS )
, ((modMask x , xK_Right ), windows W.focusDown ) , ((modMask x , xK_Right ), windows W.focusDown )

5
XMonad/Util/Scratchpad.hs
View File

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