From f7e4b2be56f20862191e05fa4509473a1bc92f5a Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 25 Nov 2018 06:28:21 +0000 Subject: Wee refactoring --- src/lib/Xmobar/Utils.hs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'src/lib/Xmobar/Utils.hs') diff --git a/src/lib/Xmobar/Utils.hs b/src/lib/Xmobar/Utils.hs index 7e79514..a2da606 100644 --- a/src/lib/Xmobar/Utils.hs +++ b/src/lib/Xmobar/Utils.hs @@ -17,7 +17,8 @@ ------------------------------------------------------------------------------ -module Xmobar.Utils (expandHome, changeLoop, hGetLineSafe, nextEvent') +module Xmobar.Utils + (expandHome, changeLoop, hGetLineSafe, nextEvent', tenthSeconds) where import Control.Monad @@ -69,3 +70,13 @@ nextEvent' d p = do nextEvent' d p where fd = connectionNumber d + + +-- | Work around to the Int max bound: since threadDelay takes an Int, it +-- is not possible to set a thread delay grater than about 45 minutes. +-- With a little recursion we solve the problem. +tenthSeconds :: Int -> IO () +tenthSeconds s | s >= x = do threadDelay (x * 100000) + tenthSeconds (s - x) + | otherwise = threadDelay (s * 100000) + where x = (maxBound :: Int) `div` 100000 -- cgit v1.2.3