summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Xmobar/Commands.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-11-25 06:28:21 +0000
committerjao <jao@gnu.org>2018-11-25 06:28:21 +0000
commitf7e4b2be56f20862191e05fa4509473a1bc92f5a (patch)
treefa12f893d52c4dccbca305503fd1efc6ecb4ccb5 /src/lib/Xmobar/Commands.hs
parent5aae9bf15e38d5a9ba8ffa3cca7fd545f4ffe1e1 (diff)
downloadxmobar-f7e4b2be56f20862191e05fa4509473a1bc92f5a.tar.gz
xmobar-f7e4b2be56f20862191e05fa4509473a1bc92f5a.tar.bz2
Wee refactoring
Diffstat (limited to 'src/lib/Xmobar/Commands.hs')
-rw-r--r--src/lib/Xmobar/Commands.hs19
1 files changed, 2 insertions, 17 deletions
diff --git a/src/lib/Xmobar/Commands.hs b/src/lib/Xmobar/Commands.hs
index 93a9590..5917bb8 100644
--- a/src/lib/Xmobar/Commands.hs
+++ b/src/lib/Xmobar/Commands.hs
@@ -17,14 +17,9 @@
--
-----------------------------------------------------------------------------
-module Xmobar.Commands
- ( Command (..)
- , Exec (..)
- , tenthSeconds
- ) where
+module Xmobar.Commands (Command (..), Exec (..)) where
import Prelude
-import Control.Concurrent
import Control.Exception (handle, SomeException(..))
import Data.Char
import System.Process
@@ -32,7 +27,7 @@ import System.Exit
import System.IO (hClose)
import Xmobar.System.Signal
-import Xmobar.Utils (hGetLineSafe)
+import Xmobar.Utils (hGetLineSafe, tenthSeconds)
class Show e => Exec e where
alias :: e -> String
@@ -75,13 +70,3 @@ instance Exec Command where
closeHandles
cb str
_ -> closeHandles >> cb msg
-
-
--- | 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