diff options
| author | Eric Mrak <mail@ericmrak.info> | 2014-03-15 14:29:30 -0700 |
|---|---|---|
| committer | Eric Mrak <mail@ericmrak.info> | 2014-03-15 14:29:30 -0700 |
| commit | b1c1b938123b585ccdb66c69e1e7a2903a8e97ad (patch) | |
| tree | 8c6eafbd15829df3e527509a6737ffb59c5b24c3 /src/Plugins/Monitors/Mem.hs | |
| parent | 48167e6f50f61453a269b321c8d3c8dad7a347b4 (diff) | |
| download | xmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.gz xmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.bz2 | |
showVerticalBar now takes the same arguments as showPercentBar
Diffstat (limited to 'src/Plugins/Monitors/Mem.hs')
| -rw-r--r-- | src/Plugins/Monitors/Mem.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Mem.hs b/src/Plugins/Monitors/Mem.hs index e483317..e409095 100644 --- a/src/Plugins/Monitors/Mem.hs +++ b/src/Plugins/Monitors/Mem.hs @@ -49,9 +49,9 @@ formatMem (r:fr:xs) = do let f = showDigits 0 rr = 100 * r ub <- showPercentBar rr r - uvb <- showVerticalBar rr + uvb <- showVerticalBar rr r fb <- showPercentBar (100 - rr) (1 - r) - fvb <- showVerticalBar (100 - rr) + fvb <- showVerticalBar (100 - rr) ( 1 - r) rs <- showPercentWithColors r fs <- showPercentWithColors fr s <- mapM (showWithColors f) xs |