haskell-src-exts-1.9.5: Test/examples/RecordWildcards.hs

{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

data Foo = Foo {a :: Int, b :: Int}

foo Foo{b, ..} = a