Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
T2735.hs 99 Bytes
Newer Older
simonpj's avatar
Test Trac #2735    
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 }