diff options
Diffstat (limited to 'Plugins/Monitors/Net.hs')
| -rw-r--r-- | Plugins/Monitors/Net.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Plugins/Monitors/Net.hs b/Plugins/Monitors/Net.hs index d08f96e..64e7eaf 100644 --- a/Plugins/Monitors/Net.hs +++ b/Plugins/Monitors/Net.hs @@ -4,7 +4,7 @@ -- Copyright : (c) Andrea Rossato -- License : BSD-style (see LICENSE) -- --- Maintainer : Andrea Rossato <andrea.rossato@unibz.it> +-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org> -- Stability : unstable -- Portability : unportable -- @@ -28,7 +28,7 @@ interval = 500000 netConfig :: IO MConfig netConfig = mkMConfig - "<dev>: <rx>|<tx>" -- template + "<dev>: <rx>KB|<tx>KB" -- template ["dev", "rx", "tx", "rxbar", "txbar"] -- available replacements -- Given a list of indexes, take the indexed elements from a list. @@ -64,10 +64,9 @@ netParser = formatNet :: Float -> Monitor (String, String) formatNet d = do - b <- showLogBar 0.8 d - x <- showWithColors f d + b <- showLogBar 0.6 d + x <- showWithColors (showDigits 1) d return (x, b) - where f s = showDigits 1 s ++ "Kb" printNet :: NetDev -> Monitor String printNet nd = |