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