Put restart in the X monad

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)

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