ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 1 1 4 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/InfixBang.hs" 1 1 1 1
            , SrcSpan "tests/examples/InfixBang.hs" 3 1 3 1
            , SrcSpan "tests/examples/InfixBang.hs" 3 1 3 1
            , SrcSpan "tests/examples/InfixBang.hs" 3 1 3 1
            , SrcSpan "tests/examples/InfixBang.hs" 4 1 4 1
            , SrcSpan "tests/examples/InfixBang.hs" 4 1 4 1
            ]
        }
      Nothing
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 1 1 1 30
            , srcInfoPoints =
                [ SrcSpan "tests/examples/InfixBang.hs" 1 1 1 13
                , SrcSpan "tests/examples/InfixBang.hs" 1 27 1 30
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 1 14 1 26
                , srcInfoPoints = []
                }
              "BangPatterns"
          ]
      ]
      []
      [ FunBind
          SrcSpanInfo
            { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 1 3 18
            , srcInfoPoints = []
            }
          [ Match
              SrcSpanInfo
                { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 1 3 18
                , srcInfoPoints =
                    [ SrcSpan "tests/examples/InfixBang.hs" 3 1 3 2
                    , SrcSpan "tests/examples/InfixBang.hs" 3 2 3 3
                    , SrcSpan "tests/examples/InfixBang.hs" 3 3 3 4
                    ]
                }
              (Symbol
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 2 3 3
                   , srcInfoPoints = []
                   }
                 "!")
              [ PVar
                  SrcSpanInfo
                    { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 5 3 8
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 5 3 8
                       , srcInfoPoints = []
                       }
                     "arr")
              , PVar
                  SrcSpanInfo
                    { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 9 3 10
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 9 3 10
                       , srcInfoPoints = []
                       }
                     "i")
              ]
              (UnGuardedRhs
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 11 3 18
                   , srcInfoPoints =
                       [ SrcSpan "tests/examples/InfixBang.hs" 3 11 3 12 ]
                   }
                 (App
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 13 3 18
                      , srcInfoPoints = []
                      }
                    (Var
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 13 3 16
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 13 3 16
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 13 3 16
                               , srcInfoPoints = []
                               }
                             "arr")))
                    (Var
                       SrcSpanInfo
                         { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 17 3 18
                         , srcInfoPoints = []
                         }
                       (UnQual
                          SrcSpanInfo
                            { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 17 3 18
                            , srcInfoPoints = []
                            }
                          (Ident
                             SrcSpanInfo
                               { srcInfoSpan = SrcSpan "tests/examples/InfixBang.hs" 3 17 3 18
                               , srcInfoPoints = []
                               }
                             "i")))))
              Nothing
          ]
      ]
  , []
  )