summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Net.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-12-18 03:17:38 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-12-18 03:17:38 +0100
commitfa5443124c7aded9698e7683eca1e5c31a550ed4 (patch)
tree006fdebe6e83a1b4619cb8c0f9060274f41a357d /src/Plugins/Monitors/Net.hs
parent1e43372a6112a8f07ab47be470ba68633f96741b (diff)
downloadxmobar-fa5443124c7aded9698e7683eca1e5c31a550ed4.tar.gz
xmobar-fa5443124c7aded9698e7683eca1e5c31a550ed4.tar.bz2
New -d (decimal digits) monitor option (issue #58)
Diffstat (limited to 'src/Plugins/Monitors/Net.hs')
-rw-r--r--src/Plugins/Monitors/Net.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/Net.hs b/src/Plugins/Monitors/Net.hs
index 8382542..1513e07 100644
--- a/src/Plugins/Monitors/Net.hs
+++ b/src/Plugins/Monitors/Net.hs
@@ -74,7 +74,8 @@ netParser =
formatNet :: Float -> Monitor (String, String)
formatNet d = do
s <- getConfigValue useSuffix
- let str = if s then (++"Kb/s") . showDigits 1 else showDigits 1
+ dd <- getConfigValue decDigits
+ let str = if s then (++"Kb/s") . showDigits dd else showDigits dd
b <- showLogBar 0.9 d
x <- showWithColors str d
return (x, b)