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
---
 Config.hs | 2 +-
 XMonad.hs | 4 ++--
 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
-- 
cgit v1.2.3