1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE NoFieldSelectors #-} module T19843g where import Prelude (Int, map) data A = A {mop :: ()} data Mup = Mup foo = foo {mup = 1}