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

Apply hlint 3.3 hints

Browse Source
This commit is contained in:
Tomas Janousek
2021-11-04 20:39:39 +00:00
parent e7f102bc9a
commit 5aff766a4c
20 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/ResizeScreen.hs
View File

@@ -71,7 +71,7 @@ instance LayoutModifier ResizeScreen a where
| ResizeScreen T i <- m = resize $ Rectangle x (y + fi i) w (h - fi i)
| ResizeScreen B i <- m = resize $ Rectangle x y w (h - fi i)
| WithNewScreen r <- m = resize r
where resize nr = runLayout ws nr
where resize = runLayout ws
pureMess (ResizeScreen d _) m
| Just (SetTheme t) <- fromMessage m = Just $ ResizeScreen d (fi $ decoHeight t)