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

Apply hlint 3.5 hints

Browse Source
This commit is contained in:
Tomas Janousek
2023-01-02 18:27:45 +01:00
parent 6117a867d9
commit 6b20dbca42
6 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Util/EZConfig.hs
View File

@@ -1,4 +1,5 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE TupleSections #-}
--------------------------------------------------------------------
-- |
-- Module : XMonad.Util.EZConfig
@@ -123,7 +124,7 @@ removeKeys conf keyList =
removeKeysP :: XConfig l -> [String] -> XConfig l
removeKeysP conf keyList =
conf { keys = \cnf -> keys conf cnf `M.difference` mkKeymap cnf (zip keyList $ repeat (return ())) }
conf { keys = \cnf -> keys conf cnf `M.difference` mkKeymap cnf (map (, return ()) keyList) }
-- | Like 'additionalKeys', but for mouse bindings.
additionalMouseBindings :: XConfig a -> [((ButtonMask, Button), Window -> X ())] -> XConfig a