diff --git a/lib/XMonad/Internal/Command/Power.hs b/lib/XMonad/Internal/Command/Power.hs
index 5c573e0..c8e098f 100644
--- a/lib/XMonad/Internal/Command/Power.hs
+++ b/lib/XMonad/Internal/Command/Power.hs
@@ -71,9 +71,9 @@ runOptimusPrompt = do
   where
     switch mode = confirmPrompt T.promptTheme (prompt mode) (cmd mode)
     prompt mode = "gpu switch to " ++ mode ++ "?"
-    cmd mode = spawnCmd "optimus-manager"
-      ["--switch", mode, "--no-confirm"]
-      >> io exitSuccess
+    cmd mode = spawn $
+      unwords ["optimus-manager", "--switch", mode, "--no-confirm"]
+      #!&& "killall xmonad"
 
 --------------------------------------------------------------------------------
 -- | Universal power prompt