ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 1 1 4 1 , srcInfoPoints = [ SrcSpan "tests/examples/IndentedModule1.hs" 1 1 1 1 , SrcSpan "tests/examples/IndentedModule1.hs" 2 2 2 2 , SrcSpan "tests/examples/IndentedModule1.hs" 3 1 3 1 , SrcSpan "tests/examples/IndentedModule1.hs" 4 1 4 1 , SrcSpan "tests/examples/IndentedModule1.hs" 4 1 4 1 ] } (Just (ModuleHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 2 2 2 19 , srcInfoPoints = [ SrcSpan "tests/examples/IndentedModule1.hs" 2 2 2 8 , SrcSpan "tests/examples/IndentedModule1.hs" 2 14 2 19 ] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 2 9 2 13 , srcInfoPoints = [] } "Main") Nothing Nothing)) [ LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 1 1 1 32 , srcInfoPoints = [ SrcSpan "tests/examples/IndentedModule1.hs" 1 1 1 13 , SrcSpan "tests/examples/IndentedModule1.hs" 1 29 1 32 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 1 14 1 28 , srcInfoPoints = [] } "NamedFieldPuns" ] ] [] [ PatBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 1 3 20 , srcInfoPoints = [] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 1 3 5 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 1 3 5 , srcInfoPoints = [] } "main")) (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 6 3 20 , srcInfoPoints = [ SrcSpan "tests/examples/IndentedModule1.hs" 3 6 3 7 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 8 3 20 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 8 3 14 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 8 3 14 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 8 3 14 , srcInfoPoints = [] } "putStr"))) (Lit SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 15 3 20 , srcInfoPoints = [] } (String SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/IndentedModule1.hs" 3 15 3 20 , srcInfoPoints = [] } "foo" "foo")))) Nothing ] , [] )