testsuite/tests/codeGen/should_compile/T7237.hs


1
2
3
4
5
6
7
8
9
10

module T7237 where

import Data.List (foldl')

data SPair = SPair { pX, pY :: Double } deriving (Eq,Show)

data AList = AList { pairs :: [SPair] } deriving Show

rnf' :: AList -> ()
rnf' aList = foldl' (flip seq) () (pairs aList) `seq` ()