packages feed

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

ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 1 1 9 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/UnicodeArrow.hs" 1 1 1 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 4 1 4 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 9 1 9 1
            , SrcSpan "tests/examples/UnicodeArrow.hs" 9 1 9 1
            ]
        }
      Nothing
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 1 1 1 31
            , srcInfoPoints =
                [ SrcSpan "tests/examples/UnicodeArrow.hs" 1 1 1 13
                , SrcSpan "tests/examples/UnicodeArrow.hs" 1 28 1 31
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 1 14 1 27
                , srcInfoPoints = []
                }
              "UnicodeSyntax"
          ]
      ]
      []
      [ TypeSig
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 1 3 30
            , srcInfoPoints =
                [ SrcSpan "tests/examples/UnicodeArrow.hs" 3 11 3 12 ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 1 3 10
                , srcInfoPoints = []
                }
              "arrowTest"
          ]
          (TyFun
             SrcSpanInfo
               { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 13 3 30
               , srcInfoPoints =
                   [ SrcSpan "tests/examples/UnicodeArrow.hs" 3 20 3 21 ]
               }
             (TyCon
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 13 3 19
                  , srcInfoPoints = []
                  }
                (UnQual
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 13 3 19
                     , srcInfoPoints = []
                     }
                   (Ident
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 13 3 19
                        , srcInfoPoints = []
                        }
                      "String")))
             (TyCon
                SrcSpanInfo
                  { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 24 3 30
                  , srcInfoPoints = []
                  }
                (UnQual
                   SrcSpanInfo
                     { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 24 3 30
                     , srcInfoPoints = []
                     }
                   (Ident
                      SrcSpanInfo
                        { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 3 24 3 30
                        , srcInfoPoints = []
                        }
                      "String"))))
      , FunBind
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 1 8 27
            , srcInfoPoints = []
            }
          [ Match
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 1 8 27
                , srcInfoPoints = []
                }
              (Ident
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 1 4 10
                   , srcInfoPoints = []
                   }
                 "arrowTest")
              [ PVar
                  SrcSpanInfo
                    { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 11 4 16
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 11 4 16
                       , srcInfoPoints = []
                       }
                     "input")
              ]
              (UnGuardedRhs
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 4 17 8 27
                   , srcInfoPoints =
                       [ SrcSpan "tests/examples/UnicodeArrow.hs" 4 17 4 18 ]
                   }
                 (Case
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 5 5 8 27
                      , srcInfoPoints =
                          [ SrcSpan "tests/examples/UnicodeArrow.hs" 5 5 5 9
                          , SrcSpan "tests/examples/UnicodeArrow.hs" 5 16 5 18
                          , SrcSpan "tests/examples/UnicodeArrow.hs" 6 7 6 7
                          , SrcSpan "tests/examples/UnicodeArrow.hs" 7 7 7 7
                          , SrcSpan "tests/examples/UnicodeArrow.hs" 8 7 8 7
                          , SrcSpan "tests/examples/UnicodeArrow.hs" 9 1 9 0
                          ]
                      }
                    (Var
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 5 10 5 15
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 5 10 5 15
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 5 10 5 15
                               , srcInfoPoints = []
                               }
                             "input")))
                    [ Alt
                        SrcSpanInfo
                          { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 7 6 24
                          , srcInfoPoints = []
                          }
                        (PLit
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 7 6 14
                             , srcInfoPoints = []
                             }
                           (Signless
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 7 6 14
                                , srcInfoPoints = []
                                })
                           (String
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 7 6 14
                                , srcInfoPoints = []
                                }
                              "hello"
                              "hello"))
                        (UnGuardedRhs
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 15 6 24
                             , srcInfoPoints =
                                 [ SrcSpan "tests/examples/UnicodeArrow.hs" 6 15 6 16 ]
                             }
                           (Lit
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 6 17 6 24
                                , srcInfoPoints = []
                                }
                              (String
                                 SrcSpanInfo
                                   { srcInfoSpan =
                                       SrcSpan "tests/examples/UnicodeArrow.hs" 6 17 6 24
                                   , srcInfoPoints = []
                                   }
                                 "world"
                                 "world")))
                        Nothing
                    , Alt
                        SrcSpanInfo
                          { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 7 7 24
                          , srcInfoPoints = []
                          }
                        (PLit
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 7 7 14
                             , srcInfoPoints = []
                             }
                           (Signless
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 7 7 14
                                , srcInfoPoints = []
                                })
                           (String
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 7 7 14
                                , srcInfoPoints = []
                                }
                              "world"
                              "world"))
                        (UnGuardedRhs
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 15 7 24
                             , srcInfoPoints =
                                 [ SrcSpan "tests/examples/UnicodeArrow.hs" 7 15 7 16 ]
                             }
                           (Lit
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 7 17 7 24
                                , srcInfoPoints = []
                                }
                              (String
                                 SrcSpanInfo
                                   { srcInfoSpan =
                                       SrcSpan "tests/examples/UnicodeArrow.hs" 7 17 7 24
                                   , srcInfoPoints = []
                                   }
                                 "hello"
                                 "hello")))
                        Nothing
                    , Alt
                        SrcSpanInfo
                          { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 8 7 8 27
                          , srcInfoPoints = []
                          }
                        (PVar
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 8 7 8 16
                             , srcInfoPoints = []
                             }
                           (Ident
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 8 7 8 16
                                , srcInfoPoints = []
                                }
                              "otherwise"))
                        (UnGuardedRhs
                           SrcSpanInfo
                             { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 8 17 8 27
                             , srcInfoPoints =
                                 [ SrcSpan "tests/examples/UnicodeArrow.hs" 8 17 8 18 ]
                             }
                           (Lit
                              SrcSpanInfo
                                { srcInfoSpan = SrcSpan "tests/examples/UnicodeArrow.hs" 8 19 8 27
                                , srcInfoPoints = []
                                }
                              (String
                                 SrcSpanInfo
                                   { srcInfoSpan =
                                       SrcSpan "tests/examples/UnicodeArrow.hs" 8 19 8 27
                                   , srcInfoPoints = []
                                   }
                                 "unknow"
                                 "unknow")))
                        Nothing
                    ]))
              Nothing
          ]
      ]
  , []
  )