diff options
| -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") |