diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-06-02 21:18:43 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-06-02 23:21:01 -0400 |
| commit | 21e9d4f5f67dca22fbe3495f637347c5a8f7b52c (patch) | |
| tree | b63284bb279783780fdf5810d559945fd0568165 /compiler/prelude/TysWiredIn.hs | |
| parent | 18cb4f5e1b88aef7770446a354bfcc1e0a075e89 (diff) | |
| download | haskell-21e9d4f5f67dca22fbe3495f637347c5a8f7b52c.tar.gz | |
Fix #15214 by listing (~) in isBuiltInOcc_maybe
This changes an obscure error (which mistakenly mentions
Template Haskell) to one that makes more sense.
Test Plan: make test TEST=T15214
Reviewers: bgamari, mpickering
Reviewed By: bgamari, mpickering
Subscribers: mpickering, rwbarton, thomie, carter
GHC Trac Issues: #15214
Differential Revision: https://phabricator.haskell.org/D4768
Diffstat (limited to 'compiler/prelude/TysWiredIn.hs')
| -rw-r--r-- | compiler/prelude/TysWiredIn.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/prelude/TysWiredIn.hs b/compiler/prelude/TysWiredIn.hs index 0817a75898..9ba2f1f45a 100644 --- a/compiler/prelude/TysWiredIn.hs +++ b/compiler/prelude/TysWiredIn.hs @@ -679,6 +679,9 @@ isBuiltInOcc_maybe occ = "[]" -> Just $ choose_ns listTyConName nilDataConName ":" -> Just consDataConName + -- equality tycon + "~" -> Just eqTyConName + -- boxed tuple data/tycon "()" -> Just $ tup_name Boxed 0 _ | Just rest <- "(" `BS.stripPrefix` name |