Incorrect "Use const" when using named field puns

[alex-rozenshteyn-leapyear]

Related to #483:

{-# LANGUAGE NamedFieldPuns #-}
data Foo = Foo {x :: Int, y :: Int}
foo = \x -> Foo{x, y=1}

Suggestion: Use const
Found:
  \ x -> Foo{x, y = 1}
Perhaps:
  const Foo{x, y = 1}

[ndmitchell]

Thanks for the report! A bug in an upstream dependency - I raised a PR at pepeiborra/haskell-src-exts-util#11 (while it's an upstream dependency, it was my bug that got moved into a separate repo, so entirely my fault!)

[ndmitchell]

Interestingly a bug I just came across and fixed as part of a different ticket. I've checked your code and it works now. See #745 for the fix.