diff options
Diffstat (limited to 'XMonad/Util/Timer.hs')
-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) |