diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-03-23 21:23:10 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-03-23 21:23:10 +0100 |
| commit | 070cab23829a45aa786f7d765a937cc003468f6b (patch) | |
| tree | 3ad37fac931f3366ef103c5e0c640462748cf47b /Plugins/Monitors/Disk.hs | |
| parent | 879f249e2a7ee7adbadf9f5d9e26d5339fc2458c (diff) | |
| download | xmobar-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.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) |