Warning police: Removed catch-all case which was overlapped

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index be27bf7..a43d4fd 100644 (file)
--- a/compiler/ghci/Debugger.hs
+++ b/compiler/ghci/Debugger.hs
@@ -300,7 +300,6 @@ stripUnknowns names id = setIdType id . fst . go names . idType
            kind1 = mkArrowKind liftedTypeKind liftedTypeKind
            kind2 = mkArrowKind kind1 liftedTypeKind
            kind3 = mkArrowKind kind2 liftedTypeKind
-stripUnknowns _ id = id
 
 -----------------------------
 -- | The :breakpoint command