diff options
author | Edsko de Vries <edsko@well-typed.com> | 2013-09-03 12:51:10 +0100 |
---|---|---|
committer | Edsko de Vries <edsko@well-typed.com> | 2013-09-03 14:29:40 +0100 |
commit | be7f10bb9486462247edb6aae9a3e5f46cfe4908 (patch) | |
tree | 4f0640de17831da207aaae6f2edaeb6d3508d482 /compiler/rename/RnPat.lhs | |
parent | 1957fddb9c32e4de001374baad55d9ccf76428f9 (diff) | |
download | haskell-be7f10bb9486462247edb6aae9a3e5f46cfe4908.tar.gz |
Fix #7918
Diffstat (limited to 'compiler/rename/RnPat.lhs')
-rw-r--r-- | compiler/rename/RnPat.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs index 90a83d6a8e..e7cecf8f3f 100644 --- a/compiler/rename/RnPat.lhs +++ b/compiler/rename/RnPat.lhs @@ -416,8 +416,9 @@ rnPatAndThen _ p@(QuasiQuotePat {}) #else rnPatAndThen mk (QuasiQuotePat qq) = do { pat <- liftCps $ runQuasiQuotePat qq - ; L _ pat' <- rnLPatAndThen mk pat - ; return pat' } + -- Wrap the result of the quasi-quoter in parens so that we don't + -- lose the outermost location set by runQuasiQuote (#7918) + ; rnPatAndThen mk (ParPat pat) } #endif /* GHCI */ rnPatAndThen _ pat = pprPanic "rnLPatAndThen" (ppr pat) |