xmonad-tv: forkFile inherits environment

1 files changed, 4 insertions, 2 deletions

diff --git a/pkgs/haskell/xmonad-tv/src/main.hs b/pkgs/haskell/xmonad-tv/src/main.hs
index 2005626..1bbf4cf 100644
--- a/pkgs/haskell/xmonad-tv/src/main.hs
+++ b/pkgs/haskell/xmonad-tv/src/main.hs
@@ -9,6 +9,7 @@ import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.EwmhDesktops.Extra (ewmhExtra)
 import XMonad.Hooks.RefocusLast (refocusLastLayoutHook, toggleFocus)
 
+import Control.Monad (void)
 import Control.Monad.Extra (whenJustM)
 import qualified Data.Aeson
 import qualified Data.ByteString.Char8
@@ -134,8 +135,9 @@ handleFocusChangeEvent = \case
 
 
 forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
-forkFile path args env =
-    xfork (executeFile path True args env) >> return ()
+forkFile path args env = void . xfork $ do
+    environment <- getEnvironment
+    executeFile path True args (env <> Just environment)
 
 
 spawnRootTerm :: X ()