1ParseOk 2 ( Module 3 SrcSpanInfo 4 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 1 1 5 1 5 , srcInfoPoints = 6 [ SrcSpan "tests/examples/LanguagePragma.hs" 1 1 1 1 7 , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1 8 , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1 9 , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1 10 , SrcSpan "tests/examples/LanguagePragma.hs" 5 1 5 1 11 , SrcSpan "tests/examples/LanguagePragma.hs" 5 1 5 1 12 ] 13 } 14 Nothing 15 [ LanguagePragma 16 SrcSpanInfo 17 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 1 1 3 5 18 , srcInfoPoints = 19 [ SrcSpan "tests/examples/LanguagePragma.hs" 1 1 1 13 20 , SrcSpan "tests/examples/LanguagePragma.hs" 3 2 3 5 21 ] 22 } 23 [ Ident 24 SrcSpanInfo 25 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 2 1 2 16 26 , srcInfoPoints = [] 27 } 28 "RecordWildCards" 29 ] 30 ] 31 [] 32 [ PatBind 33 SrcSpanInfo 34 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 21 35 , srcInfoPoints = [] 36 } 37 (PVar 38 SrcSpanInfo 39 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 5 40 , srcInfoPoints = [] 41 } 42 (Ident 43 SrcSpanInfo 44 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 5 45 , srcInfoPoints = [] 46 } 47 "main")) 48 (UnGuardedRhs 49 SrcSpanInfo 50 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 6 4 21 51 , srcInfoPoints = 52 [ SrcSpan "tests/examples/LanguagePragma.hs" 4 6 4 7 ] 53 } 54 (App 55 SrcSpanInfo 56 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 21 57 , srcInfoPoints = [] 58 } 59 (Var 60 SrcSpanInfo 61 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13 62 , srcInfoPoints = [] 63 } 64 (UnQual 65 SrcSpanInfo 66 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13 67 , srcInfoPoints = [] 68 } 69 (Ident 70 SrcSpanInfo 71 { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13 72 , srcInfoPoints = [] 73 } 74 "print"))) 75 (Lit 76 SrcSpanInfo 77 { srcInfoSpan = 78 SrcSpan "tests/examples/LanguagePragma.hs" 4 14 4 21 79 , srcInfoPoints = [] 80 } 81 (String 82 SrcSpanInfo 83 { srcInfoSpan = 84 SrcSpan "tests/examples/LanguagePragma.hs" 4 14 4 21 85 , srcInfoPoints = [] 86 } 87 "hello" 88 "hello")))) 89 Nothing 90 ] 91 , [] 92 ) 93