From 48167e6f50f61453a269b321c8d3c8dad7a347b4 Mon Sep 17 00:00:00 2001
From: Eric Mrak <mail@ericmrak.info>
Date: Fri, 14 Mar 2014 18:10:18 -0700
Subject: Wireless module has qualityvbar

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

(limited to 'src')

diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs
index f8192dc..d5342a1 100644
--- a/src/Plugins/Monitors/Wireless.hs
+++ b/src/Plugins/Monitors/Wireless.hs
@@ -19,7 +19,7 @@ import IWlib
 
 wirelessConfig :: IO MConfig
 wirelessConfig =
-  mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar"]
+  mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar", "qualityvbar"]
 
 runWireless :: [String] -> Monitor String
 runWireless (iface:_) = do
@@ -33,5 +33,6 @@ runWireless (iface:_) = do
        then showPercentWithColors (qlty / 100)
        else showWithPadding ""
   qb <- showPercentBar qlty (qlty / 100)
-  parseTemplate [ep, q, qb]
+  qvb <- showVerticalBar qlty
+  parseTemplate [ep, q, qb, qvb]
 runWireless _ = getConfigValue naString
-- 
cgit v1.2.3