1 2 3 4
{-# LANGUAGE DuplicateRecordFields #-} module GHCiDRF where data T = MkT { foo :: Int, bar :: Int } data U = MkU { bar :: Bool }