diff --git a/src/XMonad/Custom/BasicKeyBindings.hs b/src/XMonad/Custom/BasicKeyBindings.hs
index d0733d1..6a159e0 100644
--- a/src/XMonad/Custom/BasicKeyBindings.hs
+++ b/src/XMonad/Custom/BasicKeyBindings.hs
@@ -60,5 +60,8 @@ myXMonadBindings = [
     ("S-q", quitXMonad)
   ]
     where
-      restartXMonad = spawn "if type xmonad; then xmonad --recompile && xmonad --restart; else xmessage xmonad not in \\$PATH: \"$PATH\"; fi"
       quitXMonad    = io exitSuccess
+
+
+restartXMonad :: X ()
+restartXMonad = spawn "if type xmonad; then cd ~/.config/xmonad; stack install; xmonad --recompile && xmonad --restart; else xmessage xmonad not in \\$PATH: \"$PATH\"; fi"