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

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

module NamedFieldPunsMixed where

data Config = Config {host :: String, port :: Int, secure :: Bool}

normalize :: Config -> Config
normalize Config {host, port, secure = _} = Config {host, port, secure = True}