[test] testdata changed (passing)

Author: Ishmum Jawad Khan

test/functional/FunctionalCodeAction.hs

@@ -559,7 +559,7 @@ missingPragmaTests = testGroup "missing pragma warning code actions" [
             _ <- waitForDiagnosticsFrom doc
             cas <- map fromAction <$> getAllCodeActions doc
 
-            liftIO $ "Add \"TypeApplications\"" `elem` map (^. L.title) cas @? "Contains TypeApplications code action"
+            liftIO $ "Add \"NamedFieldPuns\"" `elem` map (^. L.title) cas @? "Contains NamedFieldPuns code action"
 
             executeCodeAction $ head cas
 
@@ -569,12 +569,16 @@ missingPragmaTests = testGroup "missing pragma warning code actions" [
                     [ "#! /usr/bin/env nix-shell"
                     , "#! nix-shell --pure -i runghc -p \"haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])\""
                     , ""
-                    , "{-# LANGUAGE ScopedTypeVariables #-}"
-                    , "{-# LANGUAGE TypeApplications #-}"
+                    , "{-# LANGUAGE NamedFieldPuns #-}"
                     , "module AfterShebang where"
                     , ""
-                    , "foo :: forall a. a -> a"
-                    , "foo = id @a"
+                    , "data Record = Record"
+                    , "  { a :: Int,"
+                    , "    b :: Double,"
+                    , "    c :: String"
+                    , "  }"
+                    , ""
+                    , "f Record{a, b} = a"
                     ]
 
             liftIO $ T.lines contents @?= expected

test/testdata/addPragmas/AfterShebang.hs

@@ -1,8 +1,12 @@
 #! /usr/bin/env nix-shell
 #! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
 
-{-# LANGUAGE ScopedTypeVariables #-}
 module AfterShebang where
 
-foo :: forall a. a -> a
-foo = id @a
+data Record = Record
+  { a :: Int,
+    b :: Double,
+    c :: String
+  }
+
+f Record{a, b} = a