WIP on Doing a combined Step 1 and 3 for Trees That Grow
[ghc.git] / testsuite / tests / parser / should_compile / T14189.stderr
index 53e4a6f..4965410 100644 (file)
@@ -4,9 +4,10 @@
 (Just
  ((,,,)
   (HsGroup
-   (ValBindsOut
-    []
-    [])
+   (XValBindsLR
+    (NValBinds
+      []
+      []))
    []
    [(TyClGroup
      [({ T14189.hs:6:1-42 }
@@ -36,6 +37,7 @@
             (PrefixCon
              [({ T14189.hs:6:18-20 }
                (HsTyVar
+                (PlaceHolder)
                 (NotPromoted)
                 ({ T14189.hs:6:18-20 }
                  {Name: GHC.Types.Int})))])
                 (ConDeclField
                  [({ T14189.hs:6:33 }
                    (FieldOcc
+                    {Name: T14189.f}
                     ({ T14189.hs:6:33 }
                      (Unqual
-                      {OccName: f}))
-                    {Name: T14189.f}))]
+                      {OccName: f}))))]
                  ({ T14189.hs:6:38-40 }
                   (HsTyVar
+                   (PlaceHolder)
                    (NotPromoted)
                    ({ T14189.hs:6:38-40 }
                     {Name: GHC.Types.Int})))