path: root/testsuite/tests/overloadedrecflds/should_fail/NFS9156.hs

{-# LANGUAGE NoFieldSelectors #-}
module NFS9156 where
data D = D1 { f1 :: Int }
       | D2 { f1, f1 :: Int }