From 384659364b78a5b763aa07e29e767073d303c6e7 Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Sat, 20 Mar 2010 03:08:48 +0100
Subject: Bars for DiskIO

Ignore-this: 50ae0b5d07377a8563acdede4dba31cf

darcs-hash:20100320020848-748be-4c1b8f64b056f026328348a3eb8ca6f367544285.gz
---
 Plugins/Monitors/Net.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/Plugins/Monitors/Net.hs b/Plugins/Monitors/Net.hs
index 7fed311..d08f96e 100644
--- a/Plugins/Monitors/Net.hs
+++ b/Plugins/Monitors/Net.hs
@@ -64,9 +64,7 @@ netParser =
 
 formatNet :: Float -> Monitor (String, String)
 formatNet d = do
-    h <- getConfigValue high
-    let dx = 8 + logBase 10 (d / fromIntegral h)
-    b <- showPercentBar d $ max (dx / 10) 0
+    b <- showLogBar 0.8 d
     x <- showWithColors f d
     return (x, b)
       where f s = showDigits 1 s ++ "Kb"
-- 
cgit v1.2.3