From f69491e732767bb1fe51ec6dec1bcbb4b7bc8fa0 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 19 Nov 2007 04:04:36 +0100
Subject: Generalize recompile to MonadIO

darcs-hash:20071119030436-a5988-28b43f2f3c50476d5eda3c03196fc238c1427302.gz
---
 XMonad/Core.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Core.hs')

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index e873848..27ef4f2 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -308,8 +308,8 @@ restart mprog resume = do
 -- status, any stderr produced by GHC, written to the file xmonad.errors,
 -- will be displayed to the user with xmessage
 --
-recompile :: IO ()
-recompile = do
+recompile :: MonadIO m => m ()
+recompile = liftIO $ do
     dir <- liftM (++ "/.xmonad") getHomeDirectory
     let bin = dir ++ "/" ++ "xmonad"
         err = bin ++ ".errors"
-- 
cgit v1.2.3