diff options
| author | tv <tv@krebsco.de> | 2018-11-28 14:47:08 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2018-11-28 14:47:08 +0100 |
| commit | f57b5b72a418ae740dbb5c536bb8addafe055a2a (patch) | |
| tree | 8bccd70d293f314f86b204c685e0095c6566397d | |
| parent | 1d7fddc064fef5e77c48602e3524949893a92997 (diff) | |
tv xmonad: liftIO -> io
| -rw-r--r-- | tv/5pkgs/simple/xmonad-tv/default.nix | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tv/5pkgs/simple/xmonad-tv/default.nix b/tv/5pkgs/simple/xmonad-tv/default.nix index 430e6a809..18463b496 100644 --- a/tv/5pkgs/simple/xmonad-tv/default.nix +++ b/tv/5pkgs/simple/xmonad-tv/default.nix @@ -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') |