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

ghc-9.0.1 compatibility fixes

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

2
CHANGES.md
View File

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

2
XMonad/Actions/GridSelect.hs
View File

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

2
XMonad/Layout/NoBorders.hs
View File

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