From 4672491cdad0680c59451a4c15e38270cf0f472c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 21 May 2007 21:07:49 +0200
Subject: Put restart in the X monad

darcs-hash:20070521190749-a5988-1c95a0491806b06a32e7fe8bd6bcac31ebc7ad6b
---
 XMonad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad.hs')

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
-- 
cgit v1.2.3