diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-08-27 14:02:42 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-08-27 14:02:42 +0200 |
| commit | 5e6cf2a9301a5473ff9c5319b96de941b1ad72dd (patch) | |
| tree | 78e37421b84d14b96af5371d33ba94b4de10626e /testsuite/tests/th/T15550.stderr | |
| parent | c523525b0e434d848f6e47ea3f9a37485965fa79 (diff) | |
| download | haskell-5e6cf2a9301a5473ff9c5319b96de941b1ad72dd.tar.gz | |
Fix #15550 by quoting RULE names during TH conversion
Summary:
When converting a `RuleP` to a GHC source `RuleD` during TH
conversion, we were stupidly not double-quoting the name of the rule.
Easily fixed.
Test Plan: make test TEST=T15550
Reviewers: goldfire, bgamari, simonpj
Reviewed By: simonpj
Subscribers: simonpj, rwbarton, carter
GHC Trac Issues: #15550
Differential Revision: https://phabricator.haskell.org/D5090
Diffstat (limited to 'testsuite/tests/th/T15550.stderr')
| -rw-r--r-- | testsuite/tests/th/T15550.stderr | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/th/T15550.stderr b/testsuite/tests/th/T15550.stderr new file mode 100644 index 0000000000..8169d75613 --- /dev/null +++ b/testsuite/tests/th/T15550.stderr @@ -0,0 +1,11 @@ +T15550.hs:(4,3)-(8,6): Splicing declarations + [d| {-# RULES "myId" forall x. myId x = x #-} + + myId :: a -> a + myId x = x + {-# NOINLINE [1] myId #-} |] + ======> + myId :: a -> a + myId x = x + {-# NOINLINE [1] myId #-} + {-# RULES "myId" forall x. myId x = x #-} |