Commit 33a6df97 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Make addSRM to strict additions

I assume that this is what is intended, as it is used with foldl'
parent 616524d8
......@@ -290,5 +290,8 @@ countSRM_instr li
-- sigh..
addSRM :: (Int, Int, Int) -> (Int, Int, Int) -> (Int, Int, Int)
addSRM (s1, r1, m1) (s2, r2, m2)
= (s1+s2, r1+r2, m1+m2)
= let !s = s1 + s2
!r = r1 + r2
!m = m1 + m2
in (s, r, m)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment