haskell-src-exts-1.24.0: tests/examples/RecordPuns.hs.parser.golden

ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 1 5 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 1
            , SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 1
            , SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 1
            , SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 1
            , SrcSpan "tests/examples/RecordPuns.hs" 5 1 5 1
            , SrcSpan "tests/examples/RecordPuns.hs" 5 1 5 1
            ]
        }
      (Just
         (ModuleHead
            SrcSpanInfo
              { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 24
              , srcInfoPoints =
                  [ SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 7
                  , SrcSpan "tests/examples/RecordPuns.hs" 2 19 2 24
                  ]
              }
            (ModuleName
               SrcSpanInfo
                 { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 2 8 2 18
                 , srcInfoPoints = []
                 }
               "RecordPuns")
            Nothing
            Nothing))
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 32
            , srcInfoPoints =
                [ SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 13
                , SrcSpan "tests/examples/RecordPuns.hs" 1 29 1 32
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 14 1 28
                , srcInfoPoints = []
                }
              "NamedFieldPuns"
          ]
      ]
      []
      [ PatBind
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 30
            , srcInfoPoints = []
            }
          (PVar
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 7
               , srcInfoPoints = []
               }
             (Ident
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 7
                  , srcInfoPoints = []
                  }
                "cotile"))
          (UnGuardedRhs
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 8 4 30
               , srcInfoPoints =
                   [ SrcSpan "tests/examples/RecordPuns.hs" 4 8 4 9 ]
               }
             (RecUpdate
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 30
                  , srcInfoPoints =
                      [ SrcSpan "tests/examples/RecordPuns.hs" 4 15 4 16
                      , SrcSpan "tests/examples/RecordPuns.hs" 4 29 4 30
                      ]
                  }
                (Var
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14
                     , srcInfoPoints = []
                     }
                   (UnQual
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14
                        , srcInfoPoints = []
                        }
                      (Ident
                         SrcSpanInfo
                           { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14
                           , srcInfoPoints = []
                           }
                         "tile")))
                [ FieldPun
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29
                      , srcInfoPoints = []
                      }
                    (Qual
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29
                         , srcInfoPoints = []
                         }
                       (ModuleName
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29
                            , srcInfoPoints = []
                            }
                          "Kind")
                       (Ident
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29
                            , srcInfoPoints = []
                            }
                          "ospeedup"))
                ]))
          Nothing
      ]
  , []
  )