[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 (file)
--- 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}