haskell-src-exts-1.18.0: tests/examples/GadtStrictness.hs.parser.golden

ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 1 1 5 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/GadtStrictness.hs" 1 1 1 1
            , SrcSpan "tests/examples/GadtStrictness.hs" 3 1 3 1
            , SrcSpan "tests/examples/GadtStrictness.hs" 3 1 3 1
            , SrcSpan "tests/examples/GadtStrictness.hs" 3 1 3 1
            , SrcSpan "tests/examples/GadtStrictness.hs" 5 1 5 1
            , SrcSpan "tests/examples/GadtStrictness.hs" 5 1 5 1
            ]
        }
      Nothing
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 1 1 1 23
            , srcInfoPoints =
                [ SrcSpan "tests/examples/GadtStrictness.hs" 1 1 1 13
                , SrcSpan "tests/examples/GadtStrictness.hs" 1 20 1 23
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan =
                    SrcSpan "tests/examples/GadtStrictness.hs" 1 14 1 19
                , srcInfoPoints = []
                }
              "GADTs"
          ]
      ]
      []
      [ GDataDecl
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 3 1 5 0
            , srcInfoPoints =
                [ SrcSpan "tests/examples/GadtStrictness.hs" 3 8 3 13
                , SrcSpan "tests/examples/GadtStrictness.hs" 4 3 4 3
                , SrcSpan "tests/examples/GadtStrictness.hs" 5 1 5 0
                ]
            }
          (DataType
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 3 1 3 5
               , srcInfoPoints = []
               })
          Nothing
          (DHead
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 3 6 3 7
               , srcInfoPoints = []
               }
             (Ident
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 3 6 3 7
                  , srcInfoPoints = []
                  }
                "X"))
          Nothing
          [ GadtDecl
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 3 4 17
                , srcInfoPoints =
                    [ SrcSpan "tests/examples/GadtStrictness.hs" 4 5 4 7 ]
                }
              (Ident
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 3 4 4
                   , srcInfoPoints = []
                   }
                 "X")
              Nothing
              (TyFun
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 8 4 17
                   , srcInfoPoints =
                       [ SrcSpan "tests/examples/GadtStrictness.hs" 4 13 4 15 ]
                   }
                 (TyBang
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 8 4 12
                      , srcInfoPoints = []
                      }
                    (BangedTy
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 8 4 9
                         , srcInfoPoints = []
                         })
                    (NoUnpackPragma
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "" (-1) (-1) (-1) (-1)
                         , srcInfoPoints = []
                         })
                    (TyCon
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 9 4 12
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 9 4 12
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/GadtStrictness.hs" 4 9 4 12
                               , srcInfoPoints = []
                               }
                             "Int"))))
                 (TyCon
                    SrcSpanInfo
                      { srcInfoSpan =
                          SrcSpan "tests/examples/GadtStrictness.hs" 4 16 4 17
                      , srcInfoPoints = []
                      }
                    (UnQual
                       SrcSpanInfo
                         { srcInfoSpan =
                             SrcSpan "tests/examples/GadtStrictness.hs" 4 16 4 17
                         , srcInfoPoints = []
                         }
                       (Ident
                          SrcSpanInfo
                            { srcInfoSpan =
                                SrcSpan "tests/examples/GadtStrictness.hs" 4 16 4 17
                            , srcInfoPoints = []
                            }
                          "X"))))
          ]
          Nothing
      ]
  , []
  )