From a3e6a4dd6ce4b624b4fad7a3a16a4c985db7b398 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 21 Aug 2011 21:08:54 +0200
Subject: Wireless: treat <quality> as a %, and honor -p (fixes #48)

---
 src/Plugins/Monitors/Wireless.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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

diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs
index 4ac0c10..1b7e890 100644
--- a/src/Plugins/Monitors/Wireless.hs
+++ b/src/Plugins/Monitors/Wireless.hs
@@ -25,10 +25,9 @@ runWireless :: [String] -> Monitor String
 runWireless (iface:_) = do
   wi <- io $ getWirelessInfo iface
   let essid = wiEssid wi
-      qlty = wiQuality wi
-      fqlty = fromIntegral qlty
+      qlty = fromIntegral $ wiQuality wi
       e = if essid == "" then "N/A" else essid
-  q <- if qlty >= 0 then showWithColors show qlty else showWithPadding ""
-  qb <- showPercentBar fqlty (fqlty / 100)
+  q <- if qlty >= 0 then showPercentWithColors (qlty/100) else showWithPadding ""
+  qb <- showPercentBar qlty (qlty / 100)
   parseTemplate [e, q, qb]
 runWireless _ = return ""
\ No newline at end of file
-- 
cgit v1.2.3