summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Wireless.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors/Wireless.hs')
-rw-r--r--Plugins/Monitors/Wireless.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Plugins/Monitors/Wireless.hs b/Plugins/Monitors/Wireless.hs
index fe81ab8..eb07afe 100644
--- a/Plugins/Monitors/Wireless.hs
+++ b/Plugins/Monitors/Wireless.hs
@@ -24,10 +24,8 @@ runWireless :: [String] -> Monitor String
runWireless (iface:_) = do
wi <- io $ getWirelessInfo iface
let essid = wiEssid wi
- quality = wiQuality wi
+ qlty = wiQuality wi
e = if essid == "" then "N/A" else essid
- q <- if quality >= 0
- then showWithColors show quality
- else showWithColors' "" (0 :: Int)
+ q <- if qlty >= 0 then showWithColors show qlty else showWithPadding ""
parseTemplate [e, q]
runWireless _ = return "" \ No newline at end of file