From 4c311d7ac89f786fa444517911ab7bd13be0fa4b Mon Sep 17 00:00:00 2001
From: "benl@cse.unsw.edu.au" <unknown>
Date: Wed, 3 Feb 2010 02:55:37 +0000
Subject: [PATCH] Stifle warning about unused return value

---
 System/CPUTime.hsc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 2dbc896..c2faa1c 100644
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -108,7 +108,7 @@ foreign import ccall unsafe getrusage :: CInt -> Ptr CRUsage -> IO CInt
 #else
 # if defined(HAVE_TIMES)
     allocaBytes (#const sizeof(struct tms)) $ \ p_tms -> do
-    times p_tms
+    _ <- times p_tms
     u_ticks  <- (#peek struct tms,tms_utime) p_tms :: IO CClock
     s_ticks  <- (#peek struct tms,tms_stime) p_tms :: IO CClock
     return (( (realToInteger u_ticks + realToInteger s_ticks) * 1000000000000) 
-- 
1.7.10.4