diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-05-09 13:49:00 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-05-10 10:01:46 +0200 |
| commit | 22a03e7288129a165dc2cb866041185a06adb0e9 (patch) | |
| tree | f7c06e4716c8c0df2c800582368a2195fa8e8c7f /compiler/rename/RnPat.hs | |
| parent | 8e72a2eee29543f8a663256f6b8cf4422692cb3a (diff) | |
| download | haskell-22a03e7288129a165dc2cb866041185a06adb0e9.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'compiler/rename/RnPat.hs')
| -rw-r--r-- | compiler/rename/RnPat.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnPat.hs b/compiler/rename/RnPat.hs index 77e213410a..ac3cf64cb7 100644 --- a/compiler/rename/RnPat.hs +++ b/compiler/rename/RnPat.hs @@ -432,7 +432,7 @@ rnPatAndThen mk (NPlusKPat rdr (L l lit) _ _ _ _) ; (lit', _) <- liftCpsFV $ rnOverLit lit -- See Note [Negative zero] -- We skip negateName as -- negative zero doesn't make - -- sense in n + k pattenrs + -- sense in n + k patterns ; minus <- liftCpsFV $ lookupSyntaxName minusName ; ge <- liftCpsFV $ lookupSyntaxName geName ; return (NPlusKPat (L (nameSrcSpan new_name) new_name) |