summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-03-19 07:43:43 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-03-19 07:47:21 +0100
commitac1fa917952057fb6950c0979cd8dcd308440551 (patch)
tree983ebc6698bd2ce7b25aca554e6e095d44f3f5dc /src/Plugins/Monitors
parentc5690b268a970f4cbf7b6d73f48a57d9126ac512 (diff)
downloadxmobar-ac1fa917952057fb6950c0979cd8dcd308440551.tar.gz
xmobar-ac1fa917952057fb6950c0979cd8dcd308440551.tar.bz2
Disk usage monitor tweak
Computing used space from total and available (rather than free) space.
Diffstat (limited to 'src/Plugins/Monitors')
-rw-r--r--src/Plugins/Monitors/Disk.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Disk.hs b/src/Plugins/Monitors/Disk.hs
index 461663d..dca268d 100644
--- a/src/Plugins/Monitors/Disk.hs
+++ b/src/Plugins/Monitors/Disk.hs
@@ -83,8 +83,7 @@ fsStats path = do
Nothing -> return [-1, -1, -1]
Just f -> let tot = fsStatByteCount f
free = fsStatBytesAvailable f
- used = fsStatBytesUsed f
- in return [tot, free, used]
+ in return [tot, free, (tot - free)]
speedToStr :: Float -> String
speedToStr = showWithUnits 2 1