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