diff options
Diffstat (limited to 'src/Xmobar/Plugins')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Batt/Common.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Batt/Common.hs b/src/Xmobar/Plugins/Monitors/Batt/Common.hs index 2c60155..31caabc 100644 --- a/src/Xmobar/Plugins/Monitors/Batt/Common.hs +++ b/src/Xmobar/Plugins/Monitors/Batt/Common.hs @@ -20,7 +20,7 @@ module Xmobar.Plugins.Monitors.Batt.Common (BattOpts(..) , maybeAlert) where import System.Environment -import System.Process (waitForProcess, createProcess_, shell, CreateProcess(env)) +import System.Process (waitForProcess, withCreateProcess, shell, CreateProcess(env)) import Control.Monad (unless, void) import Xmobar.Plugins.Monitors.Common @@ -60,8 +60,7 @@ maybeAlert opts left = where mkShellCmd command = do selfEnv <- getEnvironment - pure (shell command) { env = Just $ [("XMOBAR_BATT_LEFT", show @Int $ round $ 100 * left)] ++ selfEnv + pure (shell command) { env = Just $ ("XMOBAR_BATT_LEFT", show @Int $ round $ 100 * left) : selfEnv } - runCmd c = do - (_,_,_,p) <- createProcess_ "maybeAlert" c - void $ waitForProcess p + runCmd c = withCreateProcess c $ \_ _ _ ph -> + void $ waitForProcess ph |