From 900b9f7a2ce212b4bdc7613aacb7e7b3c849b85c Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Tue, 16 Feb 2010 10:05:35 +0100
Subject: Little nits

Ignore-this: fa0ddad969589fae157da12b7957a9f3

darcs-hash:20100216090535-748be-e1393b21ddd31f38db73fc25e5848335ff85505a.gz
---
 Plugins/Monitors/Top.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Plugins/Monitors/Top.hs b/Plugins/Monitors/Top.hs
index 7e9f072..93b767d 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -76,7 +76,7 @@ getProcessData :: FilePath -> IO [String]
 getProcessData pidf =
   handle ((\_ -> evaluate []) :: SomeException -> IO [String])
          (do s <- strictReadFile $ "/proc" </> pidf </> "stat"
-             evaluate $ words $! s)
+             evaluate $! words s)
 
 processes :: IO [FilePath]
 processes = do
@@ -150,7 +150,7 @@ topTimeProcesses :: Int -> TimesRef -> Float -> IO [TimeInfo]
 topTimeProcesses n tref lapse = do
   t1 <- timeinfos
   t0 <- readIORef tref
-  writeIORef tref $! t1
+  modifyIORef tref (const $! t1)
   let !ts = M.elems $ combineTimeInfos t0 t1
       !sts = take n $ sortBy (flip (comparing snd)) ts
       !nts = map norm sts
-- 
cgit v1.2.3