diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-04-25 19:52:22 +0200 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-05-31 12:43:22 +0100 |
| commit | 89afef9daeb6da6624d42d32813d86c1f9b9f0c3 (patch) | |
| tree | 2f3e086632ee3438c9ec516786ef6e9768512cf8 /hypsrc-test/src | |
| parent | 4dd5c93bded622a6e2e011dc7e2c8976454b53c5 (diff) | |
TTG: Match new GHC AST
Diffstat (limited to 'hypsrc-test/src')
| -rw-r--r-- | hypsrc-test/src/TemplateHaskellQuasiquotes.hs | 6 | ||||
| -rw-r--r-- | hypsrc-test/src/TemplateHaskellSplices.hs | 4 |
2 files changed, 10 insertions, 0 deletions
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) () ||] + diff --git a/hypsrc-test/src/TemplateHaskellSplices.hs b/hypsrc-test/src/TemplateHaskellSplices.hs index f8a859a0..66af36a3 100644 --- a/hypsrc-test/src/TemplateHaskellSplices.hs +++ b/hypsrc-test/src/TemplateHaskellSplices.hs @@ -7,3 +7,7 @@ import TemplateHaskellQuasiquotes $(aDecl) foo = id $(anExpression2) + +pat $(aPattern) = () + +qux = id $$(typedExpr) |