From 283001699d1ad304457d337a027f99a78e9a33ed Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 9 Nov 2007 07:38:10 +0000
Subject: [PATCH] Generalize safe/unsafeSpawn to MonadIO

---
 XMonad/Util/Run.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs
index fad92cdb..e90e8280 100644
--- a/XMonad/Util/Run.hs
+++ b/XMonad/Util/Run.hs
@@ -104,9 +104,9 @@ seconds = fromEnum . (* 1000000)
    $HOME and interpolation, whereas the safeSpawn example can be safe because Firefox doesn't need any arguments if it is
    just being started.
 -}
-safeSpawn :: FilePath -> String -> X ()
-safeSpawn prog arg = io (try (forkProcess $ executeFile prog True [arg] Nothing) >> return ())
-unsafeSpawn :: String -> X ()
+safeSpawn :: MonadIO m => FilePath -> String -> m ()
+safeSpawn prog arg = liftIO (try (forkProcess $ executeFile prog True [arg] Nothing) >> return ())
+unsafeSpawn :: MonadIO m => String -> m ()
 unsafeSpawn = spawn
 
 -- | Run a given program in the preferred terminal emulator. This uses safeSpawn.