diff options
| author | Alfredo Di Napoli <alfredo@well-typed.com> | 2021-07-06 15:19:19 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-09 08:46:44 -0400 |
| commit | 64e205219fe70a724bcf4558839beaaeb41b2780 (patch) | |
| tree | 5638c2427e5c1d2abeb12f0985c1cb46ca6f289f | |
| parent | 8d28b481098742f4fded2ae465a3f49516e2a95c (diff) | |
| download | haskell-64e205219fe70a724bcf4558839beaaeb41b2780.tar.gz | |
Remove redundant patSigErr
| -rw-r--r-- | compiler/GHC/Rename/Pat.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/compiler/GHC/Rename/Pat.hs b/compiler/GHC/Rename/Pat.hs index 4dda6ee44b..f68aceaf84 100644 --- a/compiler/GHC/Rename/Pat.hs +++ b/compiler/GHC/Rename/Pat.hs @@ -36,9 +36,6 @@ module GHC.Rename.Pat (-- main entry points -- Literals rnLit, rnOverLit, - - -- Pattern Error message that is also used elsewhere - patSigErr ) where -- ENH: thin imports to only what is necessary for patterns @@ -1008,16 +1005,3 @@ rnOverLit origLit ; return ((lit' { ol_val = negateOverLitVal val }, Just negate_name) , fvs1 `plusFV` fvs2) } else return ((lit', Nothing), fvs1) } - -{- -************************************************************************ -* * -\subsubsection{Errors} -* * -************************************************************************ --} - -patSigErr :: Outputable a => a -> SDoc -patSigErr ty - = (text "Illegal signature in pattern:" <+> ppr ty) - $$ nest 4 (text "Use ScopedTypeVariables to permit it") |