From ac1fa917952057fb6950c0979cd8dcd308440551 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 19 Mar 2012 07:43:43 +0100
Subject: Disk usage monitor tweak

Computing used space from total and available (rather than free) space.
---
 src/Plugins/Monitors/Disk.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Plugins/Monitors/Disk.hs')

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
-- 
cgit v1.2.3