twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-09-02 04:03:47 -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/Actions/TopicSpace.hs
View File

@@ -46,6 +46,7 @@ import Data.List
import Data.Maybe (fromMaybe, isNothing, listToMaybe, fromJust)
import Data.Ord
import qualified Data.Map as M
import Control.Applicative (liftA2)
import Control.Monad (liftM2,when,unless,replicateM_)
import System.IO
@@ -264,7 +265,7 @@ pprWindowSet tg pp = do
-- | Given a prompt configuration and a topic configuration, triggers the action associated with
-- the topic given in prompt.
topicActionWithPrompt :: XPConfig -> TopicConfig -> X ()
topicActionWithPrompt xp tg = workspacePrompt xp (liftM2 (>>) (switchTopic tg) (topicAction tg))
topicActionWithPrompt xp tg = workspacePrompt xp (liftA2 (>>) (switchTopic tg) (topicAction tg))
-- | Given a configuration and a topic, triggers the action associated with the given topic.
topicAction :: TopicConfig -> Topic -> X ()