Put restart in the X monad

darcs-hash:20070521190749-a5988-1c95a0491806b06a32e7fe8bd6bcac31ebc7ad6b

2 files changed, 3 insertions, 3 deletions

diff --git a/Config.hs b/Config.hs
index 2c6c647..0b738a6 100644
--- a/Config.hs
+++ b/Config.hs
@@ -169,7 +169,7 @@ keys = M.fromList $
     , ((modMask .|. shiftMask, xK_c     ), kill)
 
     , ((modMask .|. shiftMask, xK_q                     ), io $ exitWith ExitSuccess)
-    , ((modMask .|. shiftMask .|. controlMask, xK_q     ), io restart)
+    , ((modMask .|. shiftMask .|. controlMask, xK_q     ), restart)
 
     -- Cycle the current tiling order
     , ((modMask,               xK_Return), swap)
diff --git a/XMonad.hs b/XMonad.hs
index d1eff38..4d33569 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -143,8 +143,8 @@ spawn x = io $ do
 
 -- | Restart xmonad by exec()'ing self. This doesn't save state and xmonad has
 -- to be in PATH for this to work.
-restart :: IO ()
-restart = do
+restart :: X ()
+restart = io $ do
     prog      <- getProgName
     prog_path <- findExecutable prog
     case prog_path of