diff options
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 65ed65c..8d5c2f7 100644 --- a/XMonad/Util/Timer.hs +++ b/XMonad/Util/Timer.hs @@ -24,7 +24,6 @@ import Control.Applicative import Control.Concurrent import Data.Unique import System.Environment -import System.Posix.Process -- $usage -- This module can be used to setup a timer to handle deferred events. @@ -40,7 +39,7 @@ startTimer s = io $ do d <- openDisplay dpy rw <- rootWindow d $ defaultScreen d u <- hashUnique <$> newUnique - forkProcess $ do + doubleFork $ do threadDelay (fromEnum $ s * 1000000) a <- internAtom d "XMONAD_TIMER" False allocaXEvent $ \e -> do |