1ParseOk 2 ( Module 3 SrcSpanInfo 4 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 1 4 1 5 , srcInfoPoints = 6 [ SrcSpan "tests/examples/THTSplices.hs" 1 1 1 1 7 , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1 8 , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1 9 , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1 10 , SrcSpan "tests/examples/THTSplices.hs" 3 1 3 1 11 , SrcSpan "tests/examples/THTSplices.hs" 4 1 4 1 12 , SrcSpan "tests/examples/THTSplices.hs" 4 1 4 1 13 ] 14 } 15 Nothing 16 [ LanguagePragma 17 SrcSpanInfo 18 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 1 1 33 19 , srcInfoPoints = 20 [ SrcSpan "tests/examples/THTSplices.hs" 1 1 1 13 21 , SrcSpan "tests/examples/THTSplices.hs" 1 30 1 33 22 ] 23 } 24 [ Ident 25 SrcSpanInfo 26 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 14 1 29 27 , srcInfoPoints = [] 28 } 29 "TemplateHaskell" 30 ] 31 ] 32 [ ImportDecl 33 { importAnn = 34 SrcSpanInfo 35 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 2 1 2 27 36 , srcInfoPoints = 37 [ SrcSpan "tests/examples/THTSplices.hs" 2 1 2 7 ] 38 } 39 , importModule = 40 ModuleName 41 SrcSpanInfo 42 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 2 8 2 27 43 , srcInfoPoints = [] 44 } 45 "Language.Haskell.TH" 46 , importQualified = False 47 , importSrc = False 48 , importSafe = False 49 , importPkg = Nothing 50 , importAs = Nothing 51 , importSpecs = Nothing 52 } 53 ] 54 [ PatBind 55 SrcSpanInfo 56 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 33 57 , srcInfoPoints = [] 58 } 59 (PVar 60 SrcSpanInfo 61 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 5 62 , srcInfoPoints = [] 63 } 64 (Ident 65 SrcSpanInfo 66 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 5 67 , srcInfoPoints = [] 68 } 69 "main")) 70 (UnGuardedRhs 71 SrcSpanInfo 72 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 6 3 33 73 , srcInfoPoints = 74 [ SrcSpan "tests/examples/THTSplices.hs" 3 6 3 7 ] 75 } 76 (ExpTypeSig 77 SrcSpanInfo 78 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 33 79 , srcInfoPoints = 80 [ SrcSpan "tests/examples/THTSplices.hs" 3 18 3 20 ] 81 } 82 (Var 83 SrcSpanInfo 84 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17 85 , srcInfoPoints = [] 86 } 87 (UnQual 88 SrcSpanInfo 89 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17 90 , srcInfoPoints = [] 91 } 92 (Ident 93 SrcSpanInfo 94 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17 95 , srcInfoPoints = [] 96 } 97 "undefined"))) 98 (TySplice 99 SrcSpanInfo 100 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 21 3 33 101 , srcInfoPoints = 102 [ SrcSpan "tests/examples/THTSplices.hs" 3 21 3 23 103 , SrcSpan "tests/examples/THTSplices.hs" 3 32 3 33 104 ] 105 } 106 (ParenSplice 107 SrcSpanInfo 108 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 21 3 33 109 , srcInfoPoints = 110 [ SrcSpan "tests/examples/THTSplices.hs" 3 21 3 23 111 , SrcSpan "tests/examples/THTSplices.hs" 3 32 3 33 112 ] 113 } 114 (Var 115 SrcSpanInfo 116 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32 117 , srcInfoPoints = [] 118 } 119 (UnQual 120 SrcSpanInfo 121 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32 122 , srcInfoPoints = [] 123 } 124 (Ident 125 SrcSpanInfo 126 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32 127 , srcInfoPoints = [] 128 } 129 "undefined"))))))) 130 Nothing 131 ] 132 , [] 133 ) 134