projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a07a5ca
)
Stifle warning about unused return value
author
benl@cse.unsw.edu.au
<unknown>
Wed, 3 Feb 2010 02:55:37 +0000
(
02:55
+0000)
committer
benl@cse.unsw.edu.au
<unknown>
Wed, 3 Feb 2010 02:55:37 +0000
(
02:55
+0000)
System/CPUTime.hsc
patch
|
blob
|
history
diff --git
a/System/CPUTime.hsc
b/System/CPUTime.hsc
index
2dbc896
..
c2faa1c
100644
(file)
--- 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)