diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 22:03:15 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 22:03:15 +0100 |
commit | 7ddf106694c6174200d84e75055b4e13f5719e02 (patch) | |
tree | 0f2162e4636ed549b63c0766f6af2a93b28c9b02 /XMonad/Util/Timer.hs | |
parent | dbe81eab127b22ba808ac630cd27f5eccdd1d557 (diff) | |
download | XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.tar.gz XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.tar.xz XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.zip |
Update all uses of doubleFork/waitForProcess
Ignore-this: 4e15b7f3fd6af3b7317449608f5246b0
darcs-hash:20090116210315-25a6b-53190793833624e0c5e36ce353333092e5243883.gz
Diffstat (limited to 'XMonad/Util/Timer.hs')
-rw-r--r-- | XMonad/Util/Timer.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |