summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-05 22:47:21 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-05 22:47:21 +0200
commit4025caa168743fd5cd1cd77046e3b99c79ced38b (patch)
tree58c22f81ea1c20506bef32b1ad2aa99c4082565b
parent8e776294736c5f8178517f0be09a1dd78e6a5fcf (diff)
downloadxmobar-4025caa168743fd5cd1cd77046e3b99c79ced38b.tar.gz
xmobar-4025caa168743fd5cd1cd77046e3b99c79ced38b.tar.bz2
Swap: usedratio reported free ratio
darcs-hash:20070705204721-d6583-cd953c43b45c0cdf25fb1bac5d3e7b2d818fd16a.gz
-rw-r--r--Monitors/Swap.hs2
1 files changed, 1 insertions, 1 deletions
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 =