diff options
Diffstat (limited to 'Plugins/Monitors/Disk.hs')
| -rw-r--r-- | Plugins/Monitors/Disk.hs | 2 |
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) |