named-puns-construct.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE NamedFieldPuns #-}

module NamedFieldPunsConstruct where

data Person = Person {name :: String, age :: Int}

mkPerson :: String -> Int -> Person
mkPerson name age = Person {name, age}