diff options
Diffstat (limited to 'src/Plugins/Monitors/Wireless.hs')
| -rw-r--r-- | src/Plugins/Monitors/Wireless.hs | 7 |
1 files changed, 3 insertions, 4 deletions
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 |