haskell-language-server-1.1.0.0: test/testdata/addPragmas/NamedFieldPuns.hs

module NamedFieldPuns where

data Record = Record
  { a :: Int,
    b :: Double,
    c :: String
  }

f Record{a, b} = a