From: simonm <unknown>
Date: Tue, 22 Dec 1998 17:00:11 +0000 (+0000)
Subject: [project @ 1998-12-22 17:00:11 by simonm]
X-Git-Tag: Approx_2487_patches~167
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c47942ef15435fd5bc1a29b6e4e33b46034c692;p=ghc-hetmet.git

[project @ 1998-12-22 17:00:11 by simonm]
Remove overlapped case correctly spotted by GHC.
---

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 1165334..f99d937 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -694,8 +694,6 @@ cmpString (x:xs) (y:ys) = if	  x == y then cmpString xs ys
 			  else		      GT
 cmpString []     ys	= LT
 cmpString xs     []	= GT
-
-cmpString _ _ = panic "cmpString"
 \end{code}