From 4025caa168743fd5cd1cd77046e3b99c79ced38b Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Thu, 5 Jul 2007 22:47:21 +0200
Subject: Swap: usedratio reported free ratio

darcs-hash:20070705204721-d6583-cd953c43b45c0cdf25fb1bac5d3e7b2d818fd16a.gz
---
 Monitors/Swap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Monitors/Swap.hs b/Monitors/Swap.hs
index 6848228..96b32f1 100644
--- a/Monitors/Swap.hs
+++ b/Monitors/Swap.hs
@@ -42,7 +42,7 @@ parseMEM =
        let p x y = flip (/) 1024 . read . stringParser x $ y
            tot = p (1,11) file
            free = p (1,12) file
-       return [tot, (tot - free), free, free / tot * 100]
+       return [tot, (tot - free), free, (tot - free) / tot * 100]
 
 formatMem :: [Float] -> Monitor [String] 
 formatMem x =
-- 
cgit v1.2.3