xmonad-contrib-0.16-ghc-9-compatibility.patch

diff -ur xmonad-contrib-0.16.orig/XMonad/Actions/GridSelect.hs xmonad-contrib-0.16/XMonad/Actions/GridSelect.hs
--- xmonad-contrib-0.16.orig/XMonad/Actions/GridSelect.hs	2021-02-21 20:18:07.351620832 -0500
+++ xmonad-contrib-0.16/XMonad/Actions/GridSelect.hs	2021-02-21 20:18:38.112453444 -0500
@@ -394,8 +394,8 @@
 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,
-                         td_gsconfig = (GSConfig ch cw _ _ _ _ _ _ _ _) } <- get
+        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
         case lookup (gridX,gridY) (td_elementmap s) of
diff -ur xmonad-contrib-0.16.orig/XMonad/Layout/NoBorders.hs xmonad-contrib-0.16/XMonad/Layout/NoBorders.hs
--- xmonad-contrib-0.16.orig/XMonad/Layout/NoBorders.hs	2021-02-21 20:18:07.355620810 -0500
+++ xmonad-contrib-0.16/XMonad/Layout/NoBorders.hs	2021-02-21 20:19:29.704172572 -0500
@@ -38,7 +38,7 @@
 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)