diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-05 22:47:21 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-05 22:47:21 +0200 |
| commit | 4025caa168743fd5cd1cd77046e3b99c79ced38b (patch) | |
| tree | 58c22f81ea1c20506bef32b1ad2aa99c4082565b /Monitors/Swap.hs | |
| parent | 8e776294736c5f8178517f0be09a1dd78e6a5fcf (diff) | |
| download | xmobar-4025caa168743fd5cd1cd77046e3b99c79ced38b.tar.gz xmobar-4025caa168743fd5cd1cd77046e3b99c79ced38b.tar.bz2 | |
Swap: usedratio reported free ratio
darcs-hash:20070705204721-d6583-cd953c43b45c0cdf25fb1bac5d3e7b2d818fd16a.gz
Diffstat (limited to 'Monitors/Swap.hs')
| -rw-r--r-- | Monitors/Swap.hs | 2 |
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 = |