From fdaede604cfd993d77b458c945c4419e41ed178f Mon Sep 17 00:00:00 2001
From: "sven.panne@aedion.de" <unknown>
Date: Thu, 22 Mar 2007 16:10:40 +0000
Subject: [PATCH] Warning police: Removed catch-all case which was overlapped

---
 compiler/ghci/Debugger.hs |    1 -
 1 file changed, 1 deletion(-)

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