Make sure hints about removing extensions match what you called it - otherwise you get RecordPuns instead of NamedFieldPuns

Author: ndmitchell

CHANGES.txt

@@ -1,5 +1,6 @@
 Changelog for HLint (* = breaking change)
 
+    Make sure the extension removed matches what you called it
 *   #1124, make test into a flag rather than a mode, use --test
     #1073, add LHS/RHS hints to the summary
 *   Remove test --proof, --quickcheck and --typecheck, --tempdir

src/Hint/Extensions.hs

@@ -226,6 +226,8 @@ import Data.Foldable -- @NoRefactor: refactor only works when using GHC 8.10
 {-# LANGUAGE StandaloneKindSignatures #-} \
 type T :: (k -> Type) -> k -> Type \
 data T m a = MkT (m a) (T Maybe (m a))
+{-# LANGUAGE NoMonomorphismRestriction, NamedFieldPuns #-} \
+main = 1 -- @Note Extension NamedFieldPuns is not used
 </TEST>
 -}
 
@@ -271,8 +273,8 @@ extensionsHint _ x =
         (comment (mkLanguagePragmas sl exts))
         (Just newPragma)
         ( [RequiresExtension (show gone) | (_, Just x) <- before \\ after, gone <- Map.findWithDefault [] x disappear] ++
-            [ Note $ "Extension " ++ show x ++ " is " ++ reason x
-            | (_, Just x) <- explainedRemovals])
+            [ Note $ "Extension " ++ s ++ " is " ++ reason x
+            | (s, Just x) <- explainedRemovals])
         [ModifyComment (toSS (mkLanguagePragmas sl exts)) newPragma]
     | (L sl _,  exts) <- languagePragmas $ pragmas (ghcAnnotations x)
     , let before = [(x, readExtension x) | x <- exts]