Set path in xmonad

xmonad.hs

@@ -4,6 +4,7 @@ import System.Posix.Env
 
 import Data.Map as M
 import Data.Char
+import Data.Maybe
 
 import Graphics.X11.ExtraTypes.XF86
 
@@ -40,7 +41,6 @@ import XMonad.Prompt
 import XMonad.Prompt.Window
 import XMonad.Prompt.Layout
 import XMonad.Prompt.ConfirmPrompt
-import XMonad.Prompt.Pass
 
 import XMonad.Layout.LayoutModifier
 import XMonad.Layout.NoBorders
@@ -54,6 +54,8 @@ main = do
   putEnv "GTK_IM_MODULE=ibus"
   putEnv "XMODIFIERS=@im=ibus"
   putEnv "QT_IM_MODULES=ibus"
+  path <- getEnv "PATH"
+  (\path -> if (isJust path) then setEnv "PATH" ("/home/kubat/.local/bin/:" ++ (fromJust path)) True else print "No path defined") path
   xmproc <- spawnPipe "/usr/bin/xmobar -x 0 /home/kubat/.xmonad/xmobar.hs"
   xmonad $ docks $ ewmh $ withUrgencyHook LibNotifyUrgencyHook $ defaultConfig
     { modMask               = mod4Mask