Mic92/stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tv xmonad: liftIO -> io

Browse Source
This commit is contained in:
tv 2018-11-28 14:47:08 +01:00
parent 1d7fddc064
commit f57b5b72a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tv/5pkgs/simple/xmonad-tv/default.nix
View File

@ -92,7 +92,7 @@ mainNoArgs = do
, placeHook (smart (1,0))
]
, startupHook =
whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
whenJustM (io (lookupEnv "XMONAD_STARTUP_HOOK"))
(\path -> forkFile path [] Nothing)
, normalBorderColor = "#1c1c1c"
, focusedBorderColor = "#f000b0"
@ -129,7 +129,7 @@ spawnRootTerm =
spawnTermAt :: String -> X ()
spawnTermAt ws = do
env <- liftIO getEnvironment
env <- io getEnvironment
let env' = ("XMONAD_SPAWN_WORKSPACE", ws) : env
forkFile urxvtcPath [] (Just env')