From 89afef9daeb6da6624d42d32813d86c1f9b9f0c3 Mon Sep 17 00:00:00 2001 From: romes Date: Mon, 25 Apr 2022 19:52:22 +0200 Subject: TTG: Match new GHC AST --- hypsrc-test/src/TemplateHaskellQuasiquotes.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'hypsrc-test/src/TemplateHaskellQuasiquotes.hs') diff --git a/hypsrc-test/src/TemplateHaskellQuasiquotes.hs b/hypsrc-test/src/TemplateHaskellQuasiquotes.hs index 7fafc7aa..c9498320 100644 --- a/hypsrc-test/src/TemplateHaskellQuasiquotes.hs +++ b/hypsrc-test/src/TemplateHaskellQuasiquotes.hs @@ -36,5 +36,11 @@ aType = [t| [ (Double, String) ] |] +typedExpr1 :: Code Q () +typedExpr1 = [|| () ||] + +typedExpr :: Code Q () +typedExpr = [|| const $$(typedExpr1) () ||] + -- cgit v1.2.3