1 2 3 4 5 6 7
{-# LANGUAGE DuplicateRecordFields #-} module T14487A where data X = X { duplicateName :: Int }