From 9d718cd31b28f6799fd2dd25ffe17d9032dadbda Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 21 Jun 2007 05:36:13 +0200
Subject: minor tweaks, ideas from joachim.fasting@

darcs-hash:20070621033613-9c5c1-51e25d524c5a54aafbab14f55b3b155c558195d2
---
 XMonad.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 6242b40..7914782 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -182,7 +182,7 @@ spawn x = io $ do
 -- current window state.
 restart :: Maybe String -> Bool -> X ()
 restart mprog resume = do
-    prog <- maybe (io $ getProgName) return mprog
+    prog <- maybe (io getProgName) return mprog
     args <- if resume then gets (("--resume":) . return . show . windowset) else return []
     catchIO (executeFile prog True args Nothing)
 
-- 
cgit v1.2.3