packages feed

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

ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 1 4 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/WhereBlock.hs" 1 1 1 1
            , SrcSpan "tests/examples/WhereBlock.hs" 1 1 1 1
            , SrcSpan "tests/examples/WhereBlock.hs" 1 1 1 1
            , SrcSpan "tests/examples/WhereBlock.hs" 4 1 4 1
            , SrcSpan "tests/examples/WhereBlock.hs" 4 1 4 1
            ]
        }
      Nothing
      []
      []
      [ FunBind
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 1 3 32
            , srcInfoPoints =
                [ SrcSpan "tests/examples/WhereBlock.hs" 2 2 2 7 ]
            }
          [ Match
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 1 3 32
                , srcInfoPoints =
                    [ SrcSpan "tests/examples/WhereBlock.hs" 2 2 2 7 ]
                }
              (Ident
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 1 1 5
                   , srcInfoPoints = []
                   }
                 "hash")
              [ PVar
                  SrcSpanInfo
                    { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 6 1 9
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 6 1 9
                       , srcInfoPoints = []
                       }
                     "ptr")
              , PVar
                  SrcSpanInfo
                    { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 10 1 13
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 10 1 13
                       , srcInfoPoints = []
                       }
                     "len")
              ]
              (UnGuardedRhs
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 14 1 21
                   , srcInfoPoints =
                       [ SrcSpan "tests/examples/WhereBlock.hs" 1 14 1 15 ]
                   }
                 (App
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 16 1 21
                      , srcInfoPoints = []
                      }
                    (Var
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 16 1 17
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 16 1 17
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 16 1 17
                               , srcInfoPoints = []
                               }
                             "f")))
                    (Var
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 18 1 21
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 18 1 21
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 1 18 1 21
                               , srcInfoPoints = []
                               }
                             "len")))))
              (Just
                 (BDecls
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 8 3 32
                      , srcInfoPoints =
                          [ SrcSpan "tests/examples/WhereBlock.hs" 2 8 2 8
                          , SrcSpan "tests/examples/WhereBlock.hs" 3 8 3 8
                          , SrcSpan "tests/examples/WhereBlock.hs" 4 1 4 0
                          ]
                      }
                    [ FunBind
                        SrcSpanInfo
                          { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 8 3 32
                          , srcInfoPoints = []
                          }
                        [ Match
                            SrcSpanInfo
                              { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 8 2 22
                              , srcInfoPoints = []
                              }
                            (Ident
                               SrcSpanInfo
                                 { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 8 2 9
                                 , srcInfoPoints = []
                                 }
                               "f")
                            [ PVar
                                SrcSpanInfo
                                  { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 10 2 11
                                  , srcInfoPoints = []
                                  }
                                (Ident
                                   SrcSpanInfo
                                     { srcInfoSpan =
                                         SrcSpan "tests/examples/WhereBlock.hs" 2 10 2 11
                                     , srcInfoPoints = []
                                     }
                                   "h")
                            ]
                            (UnGuardedRhs
                               SrcSpanInfo
                                 { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 12 2 22
                                 , srcInfoPoints =
                                     [ SrcSpan "tests/examples/WhereBlock.hs" 2 12 2 13 ]
                                 }
                               (App
                                  SrcSpanInfo
                                    { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 2 14 2 22
                                    , srcInfoPoints = []
                                    }
                                  (Var
                                     SrcSpanInfo
                                       { srcInfoSpan =
                                           SrcSpan "tests/examples/WhereBlock.hs" 2 14 2 20
                                       , srcInfoPoints = []
                                       }
                                     (UnQual
                                        SrcSpanInfo
                                          { srcInfoSpan =
                                              SrcSpan "tests/examples/WhereBlock.hs" 2 14 2 20
                                          , srcInfoPoints = []
                                          }
                                        (Ident
                                           SrcSpanInfo
                                             { srcInfoSpan =
                                                 SrcSpan "tests/examples/WhereBlock.hs" 2 14 2 20
                                             , srcInfoPoints = []
                                             }
                                           "return")))
                                  (Var
                                     SrcSpanInfo
                                       { srcInfoSpan =
                                           SrcSpan "tests/examples/WhereBlock.hs" 2 21 2 22
                                       , srcInfoPoints = []
                                       }
                                     (UnQual
                                        SrcSpanInfo
                                          { srcInfoSpan =
                                              SrcSpan "tests/examples/WhereBlock.hs" 2 21 2 22
                                          , srcInfoPoints = []
                                          }
                                        (Ident
                                           SrcSpanInfo
                                             { srcInfoSpan =
                                                 SrcSpan "tests/examples/WhereBlock.hs" 2 21 2 22
                                             , srcInfoPoints = []
                                             }
                                           "h")))))
                            Nothing
                        , Match
                            SrcSpanInfo
                              { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 3 8 3 32
                              , srcInfoPoints = []
                              }
                            (Ident
                               SrcSpanInfo
                                 { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 3 8 3 9
                                 , srcInfoPoints = []
                                 }
                               "f")
                            [ PVar
                                SrcSpanInfo
                                  { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 3 10 3 11
                                  , srcInfoPoints = []
                                  }
                                (Ident
                                   SrcSpanInfo
                                     { srcInfoSpan =
                                         SrcSpan "tests/examples/WhereBlock.hs" 3 10 3 11
                                     , srcInfoPoints = []
                                     }
                                   "p")
                            ]
                            (UnGuardedRhs
                               SrcSpanInfo
                                 { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 3 12 3 32
                                 , srcInfoPoints =
                                     [ SrcSpan "tests/examples/WhereBlock.hs" 3 12 3 13 ]
                                 }
                               (Paren
                                  SrcSpanInfo
                                    { srcInfoSpan = SrcSpan "tests/examples/WhereBlock.hs" 3 14 3 32
                                    , srcInfoPoints =
                                        [ SrcSpan "tests/examples/WhereBlock.hs" 3 14 3 15
                                        , SrcSpan "tests/examples/WhereBlock.hs" 3 31 3 32
                                        ]
                                    }
                                  (InfixApp
                                     SrcSpanInfo
                                       { srcInfoSpan =
                                           SrcSpan "tests/examples/WhereBlock.hs" 3 15 3 31
                                       , srcInfoPoints = []
                                       }
                                     (Var
                                        SrcSpanInfo
                                          { srcInfoSpan =
                                              SrcSpan "tests/examples/WhereBlock.hs" 3 15 3 16
                                          , srcInfoPoints = []
                                          }
                                        (UnQual
                                           SrcSpanInfo
                                             { srcInfoSpan =
                                                 SrcSpan "tests/examples/WhereBlock.hs" 3 15 3 16
                                             , srcInfoPoints = []
                                             }
                                           (Ident
                                              SrcSpanInfo
                                                { srcInfoSpan =
                                                    SrcSpan "tests/examples/WhereBlock.hs" 3 15 3 16
                                                , srcInfoPoints = []
                                                }
                                              "p")))
                                     (QVarOp
                                        SrcSpanInfo
                                          { srcInfoSpan =
                                              SrcSpan "tests/examples/WhereBlock.hs" 3 17 3 29
                                          , srcInfoPoints =
                                              [ SrcSpan "tests/examples/WhereBlock.hs" 3 17 3 18
                                              , SrcSpan "tests/examples/WhereBlock.hs" 3 18 3 28
                                              , SrcSpan "tests/examples/WhereBlock.hs" 3 28 3 29
                                              ]
                                          }
                                        (UnQual
                                           SrcSpanInfo
                                             { srcInfoSpan =
                                                 SrcSpan "tests/examples/WhereBlock.hs" 3 17 3 29
                                             , srcInfoPoints =
                                                 [ SrcSpan "tests/examples/WhereBlock.hs" 3 17 3 18
                                                 , SrcSpan "tests/examples/WhereBlock.hs" 3 18 3 28
                                                 , SrcSpan "tests/examples/WhereBlock.hs" 3 28 3 29
                                                 ]
                                             }
                                           (Ident
                                              SrcSpanInfo
                                                { srcInfoSpan =
                                                    SrcSpan "tests/examples/WhereBlock.hs" 3 18 3 28
                                                , srcInfoPoints = []
                                                }
                                              "advancePtr")))
                                     (Lit
                                        SrcSpanInfo
                                          { srcInfoSpan =
                                              SrcSpan "tests/examples/WhereBlock.hs" 3 30 3 31
                                          , srcInfoPoints = []
                                          }
                                        (Int
                                           SrcSpanInfo
                                             { srcInfoSpan =
                                                 SrcSpan "tests/examples/WhereBlock.hs" 3 30 3 31
                                             , srcInfoPoints = []
                                             }
                                           1
                                           "1")))))
                            Nothing
                        ]
                    ]))
          ]
      ]
  , []
  )