1 2 3 4 5 6
{-# LANGUAGE RecordWildCards #-} module T9815 where newtype N = N Int deriving (Show) foo = print N{..}