summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2018-11-28 14:47:08 +0100
committertv <tv@krebsco.de>2018-11-28 14:47:08 +0100
commitf57b5b72a418ae740dbb5c536bb8addafe055a2a (patch)
tree8bccd70d293f314f86b204c685e0095c6566397d
parent1d7fddc064fef5e77c48602e3524949893a92997 (diff)
tv xmonad: liftIO -> io
-rw-r--r--tv/5pkgs/simple/xmonad-tv/default.nix4
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')