1 2 3 4 5 6 7
-- Trac #2735 module Bug where data S = S { s1 :: (), s2 :: () } f s = s { s1 = (), s2 = s1 s }