diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-23 07:45:58 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-23 07:45:58 +0100 |
| commit | be8064767c77a02987f9eae7392f5d479ce9d5be (patch) | |
| tree | 1ffc26e00a3a3d80aefca17934f044123f1dc9a9 /XMonad/Util/Timer.hs | |
| parent | f41f402f3584bf18885bf894345cb5d007643a4d (diff) | |
| download | XMonadContrib-be8064767c77a02987f9eae7392f5d479ce9d5be.tar.gz XMonadContrib-be8064767c77a02987f9eae7392f5d479ce9d5be.tar.xz XMonadContrib-be8064767c77a02987f9eae7392f5d479ce9d5be.zip | |
Update all uses of forkProcess to xfork
Ignore-this: 963a4ddf1d2f4096bbb8969b173cd0c1
darcs-hash:20091223064558-25a6b-b8cdfb14005aa9b60d9cbac7b257a6fc22b8eac4.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Util/Timer.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Util/Timer.hs b/XMonad/Util/Timer.hs index b5b6f6b..259c1ed 100644 --- a/XMonad/Util/Timer.hs +++ b/XMonad/Util/Timer.hs @@ -23,7 +23,6 @@ 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. @@ -36,7 +35,7 @@ type TimerId = Int startTimer :: Rational -> X TimerId startTimer s = io $ do u <- hashUnique <$> newUnique - forkProcess $ do + xfork $ do d <- openDisplay "" rw <- rootWindow d $ defaultScreen d threadDelay (fromEnum $ s * 1000000) |