summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Plugins/Monitors/Disk.hs2
-rw-r--r--xmobar.cabal2
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