hls-rename-plugin-1.0.1.0: test/testdata/IndirectPuns.expected.hs

{-# LANGUAGE NamedFieldPuns #-}

module IndirectPuns () where

newtype Foo = Foo { blah :: Int }

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