T2735.hs 99 Bytes
Newer Older
simonpj's avatar
simonpj committed
1
2
3
4
5
6
7
-- Trac #2735

module Bug where

data S = S { s1 :: (), s2 :: () }

f s = s { s1 = (), s2 = s1 s }