summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Disk.hs
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-03-23 21:23:10 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-03-23 21:23:10 +0100
commit070cab23829a45aa786f7d765a937cc003468f6b (patch)
tree3ad37fac931f3366ef103c5e0c640462748cf47b /Plugins/Monitors/Disk.hs
parent879f249e2a7ee7adbadf9f5d9e26d5339fc2458c (diff)
downloadxmobar-070cab23829a45aa786f7d765a937cc003468f6b.tar.gz
xmobar-070cab23829a45aa786f7d765a937cc003468f6b.tar.bz2
Missing build-depends
Ignore-this: 463a4b021313f6d85ceb8dd3d35c122d darcs-hash:20100323202310-748be-d6b5393a691e2c8c3368c01aa09f1f9b153c0d23.gz
Diffstat (limited to 'Plugins/Monitors/Disk.hs')
-rw-r--r--Plugins/Monitors/Disk.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Disk.hs b/Plugins/Monitors/Disk.hs
index 4cbe692..f3a7a2a 100644
--- a/Plugins/Monitors/Disk.hs
+++ b/Plugins/Monitors/Disk.hs
@@ -54,7 +54,7 @@ diskData = do
mountedData :: [DevName] -> IO [(DevName, [Float])]
mountedData devs = do
- (dt, dt') <- doActionTwiceWithDelay 950000 diskData
+ (dt, dt') <- doActionTwiceWithDelay 750000 diskData
return $ map (parseDev (zipWith diff dt' dt)) devs
where diff (dev, xs) (_, ys) = (dev, zipWith (-) xs ys)