haskell-src-exts-1.20.0: tests/examples/GADTRecord.hs.parser.golden

ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 1 5 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 1
            , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1
            , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1
            , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1
            , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 1
            , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 1
            ]
        }
      Nothing
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 23
            , srcInfoPoints =
                [ SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 13
                , SrcSpan "tests/examples/GADTRecord.hs" 1 20 1 23
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 14 1 19
                , srcInfoPoints = []
                }
              "GADTs"
          ]
      ]
      []
      [ GDataDecl
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 1 5 0
            , srcInfoPoints =
                [ SrcSpan "tests/examples/GADTRecord.hs" 3 8 3 13
                , SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 3
                , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 0
                ]
            }
          (DataType
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 5
               , srcInfoPoints = []
               })
          Nothing
          (DHead
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 6 3 7
               , srcInfoPoints = []
               }
             (Ident
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 6 3 7
                  , srcInfoPoints = []
                  }
                "T"))
          Nothing
          [ GadtDecl
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 29
                , srcInfoPoints =
                    [ SrcSpan "tests/examples/GADTRecord.hs" 4 5 4 7
                    , SrcSpan "tests/examples/GADTRecord.hs" 4 8 4 9
                    , SrcSpan "tests/examples/GADTRecord.hs" 4 23 4 24
                    , SrcSpan "tests/examples/GADTRecord.hs" 4 25 4 27
                    ]
                }
              (Ident
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 4
                   , srcInfoPoints = []
                   }
                 "T")
              (Just
                 [ FieldDecl
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 10 4 22
                       , srcInfoPoints =
                           [ SrcSpan "tests/examples/GADTRecord.hs" 4 16 4 18 ]
                       }
                     [ Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 10 4 15
                           , srcInfoPoints = []
                           }
                         "field"
                     ]
                     (TyCon
                        SrcSpanInfo
                          { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22
                          , srcInfoPoints = []
                          }
                        (UnQual
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22
                             , srcInfoPoints = []
                             }
                           (Ident
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22
                                , srcInfoPoints = []
                                }
                              "Int")))
                 ])
              (TyCon
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29
                   , srcInfoPoints = []
                   }
                 (UnQual
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29
                      , srcInfoPoints = []
                      }
                    (Ident
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29
                         , srcInfoPoints = []
                         }
                       "T")))
          ]
          []
      ]
  , []
  )