From 384659364b78a5b763aa07e29e767073d303c6e7 Mon Sep 17 00:00:00 2001 From: Jose A Ortega Ruiz Date: Sat, 20 Mar 2010 03:08:48 +0100 Subject: Bars for DiskIO Ignore-this: 50ae0b5d07377a8563acdede4dba31cf darcs-hash:20100320020848-748be-4c1b8f64b056f026328348a3eb8ca6f367544285.gz --- Plugins/Monitors/Disk.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Plugins/Monitors/Disk.hs') diff --git a/Plugins/Monitors/Disk.hs b/Plugins/Monitors/Disk.hs index f3c66a1..4cbe692 100644 --- a/Plugins/Monitors/Disk.hs +++ b/Plugins/Monitors/Disk.hs @@ -24,7 +24,8 @@ import qualified Data.ByteString.Lazy.Char8 as B import Data.List (isPrefixOf, find, intercalate) diskIOConfig :: IO MConfig -diskIOConfig = mkMConfig "" ["total", "read", "write"] +diskIOConfig = mkMConfig "" ["total", "read", "write", + "totalbar", "readbar", "writebar"] diskUConfig :: IO MConfig diskUConfig = mkMConfig "" @@ -105,8 +106,9 @@ devTemplates disks mounted dat = runDiskIO' :: (String, [Float]) -> Monitor String runDiskIO' (tmp, xs) = do s <- mapM (showWithColors speedToStr) xs + b <- mapM (showLogBar 0.8) xs setConfigValue tmp template - parseTemplate s + parseTemplate $ s ++ b runDiskIO :: [(String, String)] -> [String] -> Monitor String runDiskIO disks _ = do -- cgit v1.2.3