ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 1 1 17 1 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 1 1 1 1 , SrcSpan "tests/examples/HaskellParser.hs" 1 1 1 1 , SrcSpan "tests/examples/HaskellParser.hs" 1 1 1 1 , SrcSpan "tests/examples/HaskellParser.hs" 2 1 2 1 , SrcSpan "tests/examples/HaskellParser.hs" 3 1 3 1 , SrcSpan "tests/examples/HaskellParser.hs" 5 1 5 1 , SrcSpan "tests/examples/HaskellParser.hs" 13 1 13 1 , SrcSpan "tests/examples/HaskellParser.hs" 17 1 17 1 , SrcSpan "tests/examples/HaskellParser.hs" 17 1 17 1 ] } Nothing [] [ ImportDecl { importAnn = SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 1 1 1 59 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 1 1 1 7 , SrcSpan "tests/examples/HaskellParser.hs" 1 8 1 17 , SrcSpan "tests/examples/HaskellParser.hs" 1 50 1 52 ] } , importModule = ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 1 18 1 49 , srcInfoPoints = [] } "Language.Haskell.Exts.Annotated" , importQualified = True , importSrc = False , importSafe = False , importPkg = Nothing , importAs = Just (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 1 53 1 59 , srcInfoPoints = [] } "Parser") , importSpecs = Nothing } , ImportDecl { importAnn = SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 2 1 2 63 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 2 1 2 7 , SrcSpan "tests/examples/HaskellParser.hs" 2 8 2 17 , SrcSpan "tests/examples/HaskellParser.hs" 2 57 2 59 ] } , importModule = ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 2 18 2 56 , srcInfoPoints = [] } "Language.Haskell.Exts.Annotated.Syntax" , importQualified = True , importSrc = False , importSafe = False , importPkg = Nothing , importAs = Just (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 2 60 2 63 , srcInfoPoints = [] } "Syn") , importSpecs = Nothing } , ImportDecl { importAnn = SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 3 1 3 56 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 3 1 3 7 , SrcSpan "tests/examples/HaskellParser.hs" 3 8 3 17 , SrcSpan "tests/examples/HaskellParser.hs" 3 50 3 52 ] } , importModule = ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 3 18 3 49 , srcInfoPoints = [] } "Language.Haskell.Exts.Extension" , importQualified = True , importSrc = False , importSafe = False , importPkg = Nothing , importAs = Just (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 3 53 3 56 , srcInfoPoints = [] } "Ext") , importSpecs = Nothing } ] [ FunBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 1 12 44 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 6 5 6 10 ] } [ Match SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 1 12 44 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 6 5 6 10 ] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 1 5 6 , srcInfoPoints = [] } "parse") [ PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 7 5 23 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 7 5 23 , srcInfoPoints = [] } "originalFileName") , PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 24 5 29 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 24 5 29 , srcInfoPoints = [] } "input") ] (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 30 5 74 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 5 30 5 31 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 74 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 68 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 58 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 58 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 58 , srcInfoPoints = [] } "Parser") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 32 5 58 , srcInfoPoints = [] } "parseModuleWithMode"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 59 5 68 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 59 5 68 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 59 5 68 , srcInfoPoints = [] } "parseMode")))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 69 5 74 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 69 5 74 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 5 69 5 74 , srcInfoPoints = [] } "input"))))) (Just (BDecls SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 7 12 44 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 7 7 7 7 , SrcSpan "tests/examples/HaskellParser.hs" 8 7 8 7 , SrcSpan "tests/examples/HaskellParser.hs" 13 1 13 0 ] } [ TypeSig SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 7 7 36 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 7 17 7 19 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 7 7 16 , srcInfoPoints = [] } "parseMode" ] (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 20 7 36 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 20 7 36 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 20 7 36 , srcInfoPoints = [] } "Parser") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 7 20 7 36 , srcInfoPoints = [] } "ParseMode"))) , PatBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 7 12 44 , srcInfoPoints = [] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 7 8 16 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 7 8 16 , srcInfoPoints = [] } "parseMode")) (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 17 12 44 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 8 17 8 18 ] } (RecUpdate SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 19 12 44 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 8 43 8 44 , SrcSpan "tests/examples/HaskellParser.hs" 9 43 9 44 , SrcSpan "tests/examples/HaskellParser.hs" 12 43 12 44 ] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 19 8 42 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 19 8 42 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 19 8 42 , srcInfoPoints = [] } "Parser") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 19 8 42 , srcInfoPoints = [] } "defaultParseMode"))) [ FieldUpdate SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 45 8 84 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 8 66 8 67 ] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 45 8 65 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 45 8 65 , srcInfoPoints = [] } "Parser") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 45 8 65 , srcInfoPoints = [] } "parseFilename")) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 68 8 84 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 68 8 84 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 8 68 8 84 , srcInfoPoints = [] } "originalFileName"))) , FieldUpdate SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 9 45 11 67 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 9 63 9 64 ] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 9 45 9 62 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 9 45 9 62 , srcInfoPoints = [] } "Parser") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 9 45 9 62 , srcInfoPoints = [] } "extensions")) (InfixApp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 47 11 67 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 47 10 62 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 47 10 62 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 47 10 62 , srcInfoPoints = [] } "Ext") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 47 10 62 , srcInfoPoints = [] } "glasgowExts"))) (QVarOp SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 63 10 65 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 63 10 65 , srcInfoPoints = [] } (Symbol SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 10 63 10 65 , srcInfoPoints = [] } "++"))) (List SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 11 47 11 67 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 11 47 11 48 , SrcSpan "tests/examples/HaskellParser.hs" 11 66 11 67 ] } [ Con SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 11 48 11 66 , srcInfoPoints = [] } (Qual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 11 48 11 66 , srcInfoPoints = [] } (ModuleName SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 11 48 11 66 , srcInfoPoints = [] } "Ext") (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 11 48 11 66 , srcInfoPoints = [] } "ExplicitForall")) ])) ])) Nothing ])) ] , PatBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 13 1 16 25 , srcInfoPoints = [] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 13 1 13 5 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 13 1 13 5 , srcInfoPoints = [] } "main")) (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 13 6 16 25 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 13 6 13 7 ] } (Do SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 5 16 25 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 14 5 14 7 , SrcSpan "tests/examples/HaskellParser.hs" 14 8 14 8 , SrcSpan "tests/examples/HaskellParser.hs" 15 8 15 8 , SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 8 , SrcSpan "tests/examples/HaskellParser.hs" 17 1 17 0 ] } [ Generator SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 8 14 30 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 14 10 14 12 ] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 8 14 9 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 8 14 9 , srcInfoPoints = [] } "s")) (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 13 14 30 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 13 14 21 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 13 14 21 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 13 14 21 , srcInfoPoints = [] } "readFile"))) (Lit SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 22 14 30 , srcInfoPoints = [] } (String SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 14 22 14 30 , srcInfoPoints = [] } "Bug.hs" "Bug.hs"))) , LetStmt SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 8 15 32 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 15 8 15 11 ] } (BDecls SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 12 15 32 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 15 12 15 12 , SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 0 ] } [ PatBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 12 15 32 , srcInfoPoints = [] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 12 15 13 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 12 15 13 , srcInfoPoints = [] } "x")) (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 14 15 32 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 15 14 15 15 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 16 15 32 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 16 15 30 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 16 15 21 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 16 15 21 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 16 15 21 , srcInfoPoints = [] } "parse"))) (Lit SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 22 15 30 , srcInfoPoints = [] } (String SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 22 15 30 , srcInfoPoints = [] } "Bug.hs" "Bug.hs"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 31 15 32 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 31 15 32 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 15 31 15 32 , srcInfoPoints = [] } "s"))))) Nothing ]) , Qualifier SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 25 , srcInfoPoints = [] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 25 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 16 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 16 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 8 16 16 , srcInfoPoints = [] } "putStrLn"))) (Paren SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 17 16 25 , srcInfoPoints = [ SrcSpan "tests/examples/HaskellParser.hs" 16 17 16 18 , SrcSpan "tests/examples/HaskellParser.hs" 16 24 16 25 ] } (App SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 18 16 24 , srcInfoPoints = [] } (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 18 16 22 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 18 16 22 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 18 16 22 , srcInfoPoints = [] } "show"))) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 23 16 24 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 23 16 24 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/HaskellParser.hs" 16 23 16 24 , srcInfoPoints = [] } "x")))))) ])) Nothing ] , [] )