1ParseOk 2 ( Module 3 SrcSpanInfo 4 { srcInfoSpan = 5 SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 1 9 1 6 , srcInfoPoints = 7 [ SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 1 1 1 8 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 3 1 3 1 9 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 3 1 3 1 10 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 3 1 3 1 11 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 9 1 9 1 12 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 9 1 9 1 13 ] 14 } 15 Nothing 16 [ LanguagePragma 17 SrcSpanInfo 18 { srcInfoSpan = 19 SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 1 1 29 20 , srcInfoPoints = 21 [ SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 1 1 13 22 , SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 26 1 29 23 ] 24 } 25 [ Ident 26 SrcSpanInfo 27 { srcInfoSpan = 28 SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 1 14 1 25 29 , srcInfoPoints = [] 30 } 31 "QuasiQuotes" 32 ] 33 ] 34 [] 35 [ SpliceDecl 36 SrcSpanInfo 37 { srcInfoSpan = 38 SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 3 1 8 3 39 , srcInfoPoints = [] 40 } 41 (QuasiQuote 42 SrcSpanInfo 43 { srcInfoSpan = 44 SrcSpan "tests/examples/QuasiQuoteToplevel.hs" 3 1 8 3 45 , srcInfoPoints = [] 46 } 47 "undefined" 48 "\nthis quasiquote is acceptable to ghc's\nparser. Previously hse would reject this\nbecause -XTemplateHaskell is not enabled\nto allow \"expressions\" at top-level\n") 49 ] 50 , [] 51 ) 52