From 6c47942ef15435fd5bc1a29b6e4e33b46034c692 Mon Sep 17 00:00:00 2001 From: simonm Date: Tue, 22 Dec 1998 17:00:11 +0000 Subject: [PATCH] [project @ 1998-12-22 17:00:11 by simonm] Remove overlapped case correctly spotted by GHC. --- ghc/compiler/utils/Util.lhs | 2 -- 1 file changed, 2 deletions(-) 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} -- 1.7.10.4