From 7ddf106694c6174200d84e75055b4e13f5719e02 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Fri, 16 Jan 2009 22:03:15 +0100
Subject: Update all uses of doubleFork/waitForProcess

Ignore-this: 4e15b7f3fd6af3b7317449608f5246b0

darcs-hash:20090116210315-25a6b-53190793833624e0c5e36ce353333092e5243883.gz
---
 XMonad/Util/Timer.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad/Util/Timer.hs')

diff --git a/XMonad/Util/Timer.hs b/XMonad/Util/Timer.hs
index 8d21030..b5b6f6b 100644
--- a/XMonad/Util/Timer.hs
+++ b/XMonad/Util/Timer.hs
@@ -23,6 +23,7 @@ import XMonad
 import Control.Applicative
 import Control.Concurrent
 import Data.Unique
+import System.Posix.Process (forkProcess)
 
 -- $usage
 -- This module can be used to setup a timer to handle deferred events.
@@ -35,7 +36,7 @@ type TimerId = Int
 startTimer :: Rational -> X TimerId
 startTimer s = io $ do
   u   <- hashUnique <$> newUnique
-  doubleFork $ do
+  forkProcess $ do
     d   <- openDisplay ""
     rw  <- rootWindow d $ defaultScreen d
     threadDelay (fromEnum $ s * 1000000)
-- 
cgit v1.2.3