summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Wireless.hs
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-02-22 10:59:13 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-02-22 10:59:13 +0100
commitfd7de94c92b5d094bd244a06f8b330237ed7e99d (patch)
tree4f529d99048743b24b899fc5969b8563c053aa62 /Plugins/Monitors/Wireless.hs
parente376eda1088a27faf4c3cae9e0835ed58894899c (diff)
downloadxmobar-fd7de94c92b5d094bd244a06f8b330237ed7e99d.tar.gz
xmobar-fd7de94c92b5d094bd244a06f8b330237ed7e99d.tar.bz2
Getting the padding right
Ignore-this: 6bf3b6c26ba135f473a355a480fb7efa darcs-hash:20100222095913-748be-b44866d31bd677f28798cbe5c124e63a564c273a.gz
Diffstat (limited to 'Plugins/Monitors/Wireless.hs')
-rw-r--r--Plugins/Monitors/Wireless.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Plugins/Monitors/Wireless.hs b/Plugins/Monitors/Wireless.hs
index a17fb11..fe81ab8 100644
--- a/Plugins/Monitors/Wireless.hs
+++ b/Plugins/Monitors/Wireless.hs
@@ -26,6 +26,8 @@ runWireless (iface:_) = do
let essid = wiEssid wi
quality = wiQuality wi
e = if essid == "" then "N/A" else essid
- q <- if quality >= 0 then showWithColors show quality else return " "
+ q <- if quality >= 0
+ then showWithColors show quality
+ else showWithColors' "" (0 :: Int)
parseTemplate [e, q]
runWireless _ = return "" \ No newline at end of file