Ticket #7237: Test.hs

File Test.hs, 339 bytes (added by jwlato, 3 years ago)
Line 
1module Test where
2
3import Data.List (foldl')
4
5data SPair = SPair { pX, pY :: Double } deriving (Eq,Show)
6
7data AList = AList
8    { pairs :: [SPair] } deriving Show
9
10rnf' :: AList -> ()
11rnf' aList = foldl' (flip seq) () (pairs aList) `seq` ()
12
13{- -- this works
14rnf' :: AList -> ()
15rnf' aList = foldl (flip seq) () (pairs aList) `seq` ()
16-}