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

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

module NamedFieldPunsCase where

data Point = Point {x :: Int, y :: Int}

sumPoint :: Point -> Int
sumPoint p =
  case p of
    Point {x, y} -> x + y