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

Replace liftM2 with liftA2

Browse Source
This commit is contained in:
slotThe
2019-10-08 10:41:14 +02:00
parent 53b57eba14
commit 0b26ddf489
9 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout/TrackFloating.hs
View File

@@ -32,6 +32,7 @@ module XMonad.Layout.TrackFloating
UseTransientFor,
) where
import Control.Applicative (liftA2)
import Control.Monad
import Data.Function
import Data.List
@@ -100,7 +101,7 @@ instance LayoutModifier UseTransientFor Window where
s0 <- get
whenJust parent $ \p -> put s0{ windowset = W.focusWindow p (windowset s0) }
result <- runLayout ws{ W.stack = fromMaybe ms (liftM2 focusWin ms parent) } r
result <- runLayout ws{ W.stack = fromMaybe ms (liftA2 focusWin ms parent) } r
m' <- gets (W.peek . windowset)