From b4189dea79cf1d4a035f20762ed85fb194a3137f Mon Sep 17 00:00:00 2001
From: Alfredo Di Napoli <alfredo@well-typed.com>
Date: Tue, 6 Jul 2021 15:19:19 +0200
Subject: Remove redundant patSigErr

---
 compiler/GHC/Rename/Pat.hs | 16 ----------------
 1 file changed, 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")
-- 
cgit v1.2.1