ghc-9.0.1 compatibility fixes

This commit is contained in:
Sergey Alirzaev
2021-03-26 05:19:31 +03:00
parent 7d5426a183
commit 1033818631
3 changed files with 4 additions and 2 deletions

View File

@@ -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.

View File

@@ -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

View File

@@ -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)