diff options
| -rw-r--r-- | Plugins/Monitors/Disk.hs | 2 | ||||
| -rw-r--r-- | xmobar.cabal | 2 |
2 files changed, 2 insertions, 2 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) diff --git a/xmobar.cabal b/xmobar.cabal index 4af6d3b..e4d0cb5 100644 --- a/xmobar.cabal +++ b/xmobar.cabal @@ -49,7 +49,7 @@ executable xmobar if impl (ghc >= 6.12.1) ghc-options: -fno-warn-unused-do-bind - build-depends: X11>=1.3.0, mtl, unix, parsec, filepath, stm + build-depends: X11>=1.3.0, mtl, unix, parsec, filepath, stm, time if flag(small_base) build-depends: base == 4.*, containers, process, old-time, old-locale, bytestring, directory |