summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors')
-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)