1ParseOk 2 ( Module 3 SrcSpanInfo 4 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 1 1 7 1 5 , srcInfoPoints = 6 [ SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 1 7 , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1 8 , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1 9 , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1 10 , SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 1 11 , SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 1 12 , SrcSpan "tests/examples/THTypedSplices.hs" 7 1 7 1 13 , SrcSpan "tests/examples/THTypedSplices.hs" 7 1 7 1 14 ] 15 } 16 Nothing 17 [ LanguagePragma 18 SrcSpanInfo 19 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 33 20 , srcInfoPoints = 21 [ SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 13 22 , SrcSpan "tests/examples/THTypedSplices.hs" 1 30 1 33 23 ] 24 } 25 [ Ident 26 SrcSpanInfo 27 { srcInfoSpan = 28 SrcSpan "tests/examples/THTypedSplices.hs" 1 14 1 29 29 , srcInfoPoints = [] 30 } 31 "TemplateHaskell" 32 ] 33 ] 34 [ ImportDecl 35 { importAnn = 36 SrcSpanInfo 37 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 27 38 , srcInfoPoints = 39 [ SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 7 ] 40 } 41 , importModule = 42 ModuleName 43 SrcSpanInfo 44 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 2 8 2 27 45 , srcInfoPoints = [] 46 } 47 "Language.Haskell.TH" 48 , importQualified = False 49 , importSrc = False 50 , importSafe = False 51 , importPkg = Nothing 52 , importAs = Nothing 53 , importSpecs = Nothing 54 } 55 , ImportDecl 56 { importAnn = 57 SrcSpanInfo 58 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 27 59 , srcInfoPoints = 60 [ SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 7 ] 61 } 62 , importModule = 63 ModuleName 64 SrcSpanInfo 65 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 4 8 4 27 66 , srcInfoPoints = [] 67 } 68 "THTypedSplices.Defs" 69 , importQualified = False 70 , importSrc = False 71 , importSafe = False 72 , importPkg = Nothing 73 , importAs = Nothing 74 , importSpecs = Nothing 75 } 76 ] 77 [ PatBind 78 SrcSpanInfo 79 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 33 80 , srcInfoPoints = [] 81 } 82 (PVar 83 SrcSpanInfo 84 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 5 85 , srcInfoPoints = [] 86 } 87 (Ident 88 SrcSpanInfo 89 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 5 90 , srcInfoPoints = [] 91 } 92 "main")) 93 (UnGuardedRhs 94 SrcSpanInfo 95 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 6 6 33 96 , srcInfoPoints = 97 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 6 6 7 ] 98 } 99 (App 100 SrcSpanInfo 101 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 33 102 , srcInfoPoints = [] 103 } 104 (SpliceExp 105 SrcSpanInfo 106 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 16 107 , srcInfoPoints = [] 108 } 109 (TIdSplice 110 SrcSpanInfo 111 { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 16 112 , srcInfoPoints = [] 113 } 114 "justTH")) 115 (Paren 116 SrcSpanInfo 117 { srcInfoSpan = 118 SrcSpan "tests/examples/THTypedSplices.hs" 6 17 6 33 119 , srcInfoPoints = 120 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 17 6 18 121 , SrcSpan "tests/examples/THTypedSplices.hs" 6 32 6 33 122 ] 123 } 124 (SpliceExp 125 SrcSpanInfo 126 { srcInfoSpan = 127 SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 32 128 , srcInfoPoints = 129 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 21 130 , SrcSpan "tests/examples/THTypedSplices.hs" 6 31 6 32 131 ] 132 } 133 (TParenSplice 134 SrcSpanInfo 135 { srcInfoSpan = 136 SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 32 137 , srcInfoPoints = 138 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 21 139 , SrcSpan "tests/examples/THTypedSplices.hs" 6 31 6 32 140 ] 141 } 142 (BracketExp 143 SrcSpanInfo 144 { srcInfoSpan = 145 SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 31 146 , srcInfoPoints = 147 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 25 148 , SrcSpan "tests/examples/THTypedSplices.hs" 6 28 6 31 149 ] 150 } 151 (TExpBracket 152 SrcSpanInfo 153 { srcInfoSpan = 154 SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 31 155 , srcInfoPoints = 156 [ SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 25 157 , SrcSpan "tests/examples/THTypedSplices.hs" 6 28 6 31 158 ] 159 } 160 (Lit 161 SrcSpanInfo 162 { srcInfoSpan = 163 SrcSpan "tests/examples/THTypedSplices.hs" 6 26 6 27 164 , srcInfoPoints = [] 165 } 166 (Int 167 SrcSpanInfo 168 { srcInfoSpan = 169 SrcSpan "tests/examples/THTypedSplices.hs" 6 26 6 27 170 , srcInfoPoints = [] 171 } 172 2 173 "2"))))))))) 174 Nothing 175 ] 176 , [] 177 ) 178