haskell-language-server-2.7.0.0: plugins/hls-rename-plugin/test/testdata/FieldPuns.hs

{-# LANGUAGE NamedFieldPuns #-}

module FieldPun () where

newtype Foo = Foo { field :: Int }

unFoo :: Foo -> Int
unFoo Foo{field} = field