mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-01 04:31:52 -07:00
Replace liftM
and fmap
with <$>
This commit is contained in:
@@ -77,7 +77,7 @@ mateRun = withDisplay $ \dpy -> do
|
||||
-- (the extra quotes are required by dconf)
|
||||
mateRegister :: MonadIO m => m ()
|
||||
mateRegister = io $ do
|
||||
x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment
|
||||
x <- lookup "DESKTOP_AUTOSTART_ID" <$> getEnvironment
|
||||
whenJust x $ \sessionId -> safeSpawn "dbus-send"
|
||||
["--session"
|
||||
,"--print-reply=literal"
|
||||
|
Reference in New Issue
Block a user