summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-02-13 05:34:56 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-02-13 05:34:56 +0100
commit6682feedfe5d83e46ec7c942fac22c058f9eace1 (patch)
tree23b8a7ee729f036328df1817f2030c36b21489cb /src/Plugins
parenta8eae67582f67ddee277a8a03d2f2d02fc136011 (diff)
downloadxmobar-6682feedfe5d83e46ec7c942fac22c058f9eace1.tar.gz
xmobar-6682feedfe5d83e46ec7c942fac22c058f9eace1.tar.bz2
Dead code elimination (doActionTwiceWithDelay)
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/Monitors/Common.hs23
1 files changed, 0 insertions, 23 deletions
diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs
index 27ab41c..f2801f9 100644
--- a/src/Plugins/Monitors/Common.hs
+++ b/src/Plugins/Monitors/Common.hs
@@ -50,13 +50,9 @@ module Plugins.Monitors.Common (
, parseFloat
, parseInt
, stringParser
- -- * Threaded Actions
- -- $thread
- , doActionTwiceWithDelay
) where
-import Control.Concurrent
import Control.Monad.Reader
import qualified Data.ByteString.Lazy.Char8 as B
import Data.IORef
@@ -420,22 +416,3 @@ showLogBar f v = do
| x <= ll = 1 / bw
| otherwise = f + logBase 2 (x / hh) / bw
showPercentBar v $ choose v
-
--- $threads
-
-doActionTwiceWithDelay :: Int -> IO [a] -> IO ([a], [a])
-doActionTwiceWithDelay delay action =
- do v1 <- newMVar []
- forkIO $! getData action v1 0
- v2 <- newMVar []
- forkIO $! getData action v2 delay
- threadDelay (delay `div` 3 * 4)
- a <- readMVar v1
- b <- readMVar v2
- return (a,b)
-
-getData :: IO a -> MVar a -> Int -> IO ()
-getData action var d =
- do threadDelay d
- s <- action
- modifyMVar_ var (\_ -> return $! s)