From 828571625f7d55fdabb9f3b563e131244d638409 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@gmail.com>
Date: Wed, 4 May 2011 21:24:55 +0200
Subject: Compile with ghc7

Ignore-this: 218d2e19835f1e4315c01bd6214899ce

darcs-hash:20110504192455-af521-ba19a95226d2527af9fbad8ed902982f2db567db.gz
---
 XMonad/Util/Run.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs
index 30696f5..4b766d8 100644
--- a/XMonad/Util/Run.hs
+++ b/XMonad/Util/Run.hs
@@ -105,11 +105,11 @@ it makes use of shell interpretation by relying on @$HOME@ and
 interpolation, whereas the safeSpawn example can be safe because
 Firefox doesn't need any arguments if it is just being started. -}
 safeSpawn :: MonadIO m => FilePath -> [String] -> m ()
-safeSpawn prog args = io $ void $ forkProcess $ do
+safeSpawn prog args = io $ void_ $ forkProcess $ do
   uninstallSignalHandlers
   _ <- createSession
   executeFile prog True args Nothing
-    where void = (>> return ()) -- TODO: replace with Control.Monad.void
+    where void_ = (>> return ()) -- TODO: replace with Control.Monad.void / void not in ghc6 apparently
 
 -- | Simplified 'safeSpawn'; only takes a program (and no arguments):
 --
-- 
cgit v1.2.3