summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-03-23 21:23:10 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-03-23 21:23:10 +0100
commit070cab23829a45aa786f7d765a937cc003468f6b (patch)
tree3ad37fac931f3366ef103c5e0c640462748cf47b
parent879f249e2a7ee7adbadf9f5d9e26d5339fc2458c (diff)
downloadxmobar-070cab23829a45aa786f7d765a937cc003468f6b.tar.gz
xmobar-070cab23829a45aa786f7d765a937cc003468f6b.tar.bz2
Missing build-depends
Ignore-this: 463a4b021313f6d85ceb8dd3d35c122d darcs-hash:20100323202310-748be-d6b5393a691e2c8c3368c01aa09f1f9b153c0d23.gz
-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