blob: c68df2811147b30200225b07e1ea4e39924994a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- This one killed GHC 6.4 because it bogusly attributed
-- the CPR property to the construtor T
-- Result: a mkWWcpr crash
-- Needs -prof -auto-all to show it up
module ShouldCompile where
newtype T a = T { unT :: a }
f = unT
test cs = f $ case cs of
[] -> T []
(x:xs) -> T $ test cs
|