summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Common.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-23 13:49:36 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-23 13:49:36 +0200
commitfa25608473c717940f54bb529f4fe6dda8a87ff4 (patch)
treea4c77ed9568133a8ee790c7263536f2876bc53b4 /Plugins/Monitors/Common.hs
parent16f199b381d9be2996318a8dd1c474006a008957 (diff)
downloadxmobar-fa25608473c717940f54bb529f4fe6dda8a87ff4.tar.gz
xmobar-fa25608473c717940f54bb529f4fe6dda8a87ff4.tar.bz2
the normal color is set when normal > low
darcs-hash:20070723114936-d6583-1ade1b12fa6aed40aab2a07f51f1949fb298778b.gz
Diffstat (limited to 'Plugins/Monitors/Common.hs')
-rw-r--r--Plugins/Monitors/Common.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs
index 1c92fb8..d2ae8c3 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -270,7 +270,7 @@ showWithColors f x =
let col = setColor $ f x
[ll,hh] = map fromIntegral $ sort [l, h] -- consider high < low
head $ [col highColor | x > hh ] ++
- [col normalColor | x < ll ] ++
+ [col normalColor | x > ll ] ++
[col lowColor | True]
-- $threads