From d17958115fbb80d5baf58830f33390cd21acedac Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 21 Aug 2011 21:21:02 +0200
Subject: Report iowait in Cpu monitor (fixes #55)

---
 src/Plugins/Monitors/Cpu.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Plugins')

diff --git a/src/Plugins/Monitors/Cpu.hs b/src/Plugins/Monitors/Cpu.hs
index 919f7a4..6627f53 100644
--- a/src/Plugins/Monitors/Cpu.hs
+++ b/src/Plugins/Monitors/Cpu.hs
@@ -22,7 +22,7 @@ import Data.IORef (IORef, newIORef, readIORef, writeIORef)
 cpuConfig :: IO MConfig
 cpuConfig = mkMConfig
        "Cpu: <total>%"
-       ["bar","total","user","nice","system","idle"]
+       ["bar","total","user","nice","system","idle","iowait"]
 
 type CpuDataRef = IORef [Float]
 
@@ -45,7 +45,7 @@ parseCpu cref =
 formatCpu :: [Float] -> Monitor [String]
 formatCpu [] = return $ replicate 6 ""
 formatCpu xs = do
-  let t = foldr (+) 0 $ take 3 xs
+  let t = sum $ take 3 xs
   b <- showPercentBar (100 * t) t
   ps <- showPercentsWithColors (t:xs)
   return (b:ps)
-- 
cgit v1.2.3