From: sven.panne@aedion.de <unknown>
Date: Thu, 22 Mar 2007 16:10:40 +0000 (+0000)
Subject: Warning police: Removed catch-all case which was overlapped
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fdaede604cfd993d77b458c945c4419e41ed178f

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
--- 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