Put restart in the X monad

darcs-hash:20070521190749-a5988-1c95a0491806b06a32e7fe8bd6bcac31ebc7ad6b

1 files changed, 2 insertions, 2 deletions

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