From: simonpj <unknown>
Date: Tue, 2 Oct 2001 16:15:10 +0000 (+0000)
Subject: [project @ 2001-10-02 16:15:10 by simonpj]
X-Git-Tag: Approximately_9120_patches~874
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7b0743233a108ab5ee2253b67f69f046aa57d243;p=ghc-hetmet.git

[project @ 2001-10-02 16:15:10 by simonpj]
Wibble in eqString
---

diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index ae82fb6..7cc6ef8 100644
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelBase.lhs,v 1.53 2001/10/01 09:40:26 simonpj Exp $
+% $Id: PrelBase.lhs,v 1.54 2001/10/02 16:15:10 simonpj Exp $
 %
 % (c) The University of Glasgow, 1992-2000
 %
@@ -454,6 +454,7 @@ String equality is used when desugaring pattern-matches against strings.
 eqString :: String -> String -> Bool
 eqString []       []	   = True
 eqString (c1:cs1) (c2:cs2) = c1 == c2 && cs1 `eqString` cs2
+eqString cs1      cs2	   = False
 
 {-# RULES "eqString" (==) = eqString #-}
 \end{code}