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

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