aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/NamedFieldPuns/named-puns-pattern.hs

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

module NamedFieldPunsPattern where

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

greet :: Person -> String
greet Person {name} = "hello " ++ name