Merge pull request #497 from l29ah/ghc-9.0.1

Fix ghc-9.0.1 compatibility

CHANGES.md

@@ -191,6 +191,8 @@
 
 ### Bug Fixes and Minor Changes
 
+  * Add support for GHC 9.0.1.
+
   * `XMonad.Actions.TreeSelect`
 
     - Fix swapped green/blue in foreground when using Xft.

XMonad/Actions/GridSelect.hs

@@ -388,7 +388,7 @@ updateElementsWithColorizer colorizer elementmap = do
 stdHandle :: Event -> TwoD a (Maybe a) -> TwoD a (Maybe a)
 stdHandle (ButtonEvent { ev_event_type = t, ev_x = x, ev_y = y }) contEventloop
     | t == buttonRelease = do
-        s @  TwoDState { td_paneX = px, td_paneY = py,
+        s@TwoDState { td_paneX = px, td_paneY = py,
                          td_gsconfig = (GSConfig ch cw _ _ _ _ _ _ _ _) } <- get
         let gridX = (fi x - (px - cw) `div` 2) `div` cw
             gridY = (fi y - (py - ch) `div` 2) `div` ch

XMonad/Layout/NoBorders.hs

@@ -38,7 +38,7 @@ import           XMonad.Layout.LayoutModifier
 import qualified XMonad.StackSet                as W
 import qualified XMonad.Util.Rectangle          as R
 
-import           Data.List
+import           Data.List                      hiding (singleton)
 import           Data.Monoid
 import qualified Data.Map                       as M
 import           Data.Function                  (on)