From 32dc866c396c262d3781e03bdfd1acd2b4a151ee Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Mon, 22 Feb 2010 15:42:26 +0100
Subject: Wireless monitor: better boundary checks

Ignore-this: cfb69e10b2eaff6924a2df32b1e51bf0

darcs-hash:20100222144226-748be-f28cbe827c89238074448b23da7ba606f930ceb9.gz
---
 Plugins/Monitors/Wireless.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Plugins/Monitors/Wireless.hs')

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
-- 
cgit v1.2.3