ParseOk (Module (SrcSpanInfo {srcInfoSpan = SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 1, srcSpanEndLine = 9, srcSpanEndColumn = 1}, srcInfoPoints = [SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 1, srcSpanEndLine = 1, srcSpanEndColumn = 1},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 3, srcSpanStartColumn = 1, srcSpanEndLine = 3, srcSpanEndColumn = 1},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 3, srcSpanStartColumn = 1, srcSpanEndLine = 3, srcSpanEndColumn = 1},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 3, srcSpanStartColumn = 1, srcSpanEndLine = 3, srcSpanEndColumn = 1},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 9, srcSpanStartColumn = 1, srcSpanEndLine = 9, srcSpanEndColumn = 1},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 9, srcSpanStartColumn = 1, srcSpanEndLine = 9, srcSpanEndColumn = 1}]}) Nothing [LanguagePragma (SrcSpanInfo {srcInfoSpan = SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 1, srcSpanEndLine = 1, srcSpanEndColumn = 29}, srcInfoPoints = [SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 1, srcSpanEndLine = 1, srcSpanEndColumn = 13},SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 26, srcSpanEndLine = 1, srcSpanEndColumn = 29}]}) [Ident (SrcSpanInfo {srcInfoSpan = SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 1, srcSpanStartColumn = 14, srcSpanEndLine = 1, srcSpanEndColumn = 25}, srcInfoPoints = []}) "QuasiQuotes"]] [] [SpliceDecl (SrcSpanInfo {srcInfoSpan = SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 3, srcSpanStartColumn = 1, srcSpanEndLine = 8, srcSpanEndColumn = 3}, srcInfoPoints = []}) (QuasiQuote (SrcSpanInfo {srcInfoSpan = SrcSpan {srcSpanFilename = "tests/examples/QuasiQuoteToplevel.hs", srcSpanStartLine = 3, srcSpanStartColumn = 1, srcSpanEndLine = 8, srcSpanEndColumn = 3}, srcInfoPoints = []}) "undefined" "\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")],[])