diff options
| author | Cale Gibbard <cgibbard@gmail.com> | 2020-11-09 16:11:45 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-12-14 13:37:09 -0500 |
| commit | c696bb2f4476e0ce4071e0d91687c1fe84405599 (patch) | |
| tree | dc55fdaebbcd8dbd0c1f53c80214c2996c7f3f0a /testsuite/tests/quasiquotation/qq005 | |
| parent | 78580ba3f99565b0aecb25c4206718d4c8a52317 (diff) | |
| download | haskell-c696bb2f4476e0ce4071e0d91687c1fe84405599.tar.gz | |
Implement type applications in patterns
The haddock submodule is also updated so that it understands the changes
to patterns.
Diffstat (limited to 'testsuite/tests/quasiquotation/qq005')
| -rw-r--r-- | testsuite/tests/quasiquotation/qq005/Expr.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/testsuite/tests/quasiquotation/qq005/Expr.hs b/testsuite/tests/quasiquotation/qq005/Expr.hs index 767d906ba4..bb02666847 100644 --- a/testsuite/tests/quasiquotation/qq005/Expr.hs +++ b/testsuite/tests/quasiquotation/qq005/Expr.hs @@ -97,9 +97,8 @@ parseExprPat s = do loc <- location dataToPatQ (const Nothing `extQ` antiExprPat) expr antiExprPat :: Expr -> Maybe (Q Pat) -antiExprPat (AntiIntExpr v) = Just $ conP (mkName "IntExpr") - [varP (mkName v)] -antiExprPat (AntiExpr v) = Just $ varP (mkName v) +antiExprPat (AntiIntExpr v) = Just $ conP (mkName "IntExpr") [varP (mkName v)] +antiExprPat (AntiExpr v) = Just $ varP (mkName v) antiExprPat _ = Nothing -- Copied from syb for the test |