diff options
author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-22 10:59:13 +0100 |
---|---|---|
committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-22 10:59:13 +0100 |
commit | fd7de94c92b5d094bd244a06f8b330237ed7e99d (patch) | |
tree | 4f529d99048743b24b899fc5969b8563c053aa62 | |
parent | e376eda1088a27faf4c3cae9e0835ed58894899c (diff) | |
download | xmobar-fd7de94c92b5d094bd244a06f8b330237ed7e99d.tar.gz xmobar-fd7de94c92b5d094bd244a06f8b330237ed7e99d.tar.bz2 |
Getting the padding right
Ignore-this: 6bf3b6c26ba135f473a355a480fb7efa
darcs-hash:20100222095913-748be-b44866d31bd677f28798cbe5c124e63a564c273a.gz
-rw-r--r-- | Plugins/Monitors/Wireless.hs | 4 |
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 |