projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
679364e
)
[project @ 2001-10-02 16:15:10 by simonpj]
author
simonpj
<unknown>
Tue, 2 Oct 2001 16:15:10 +0000
(16:15 +0000)
committer
simonpj
<unknown>
Tue, 2 Oct 2001 16:15:10 +0000
(16:15 +0000)
Wibble in eqString
ghc/lib/std/PrelBase.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/std/PrelBase.lhs
b/ghc/lib/std/PrelBase.lhs
index
ae82fb6
..
7cc6ef8
100644
(file)
--- 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
%
%
% (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 :: String -> String -> Bool
eqString [] [] = True
eqString (c1:cs1) (c2:cs2) = c1 == c2 && cs1 `eqString` cs2
+eqString cs1 cs2 = False
{-# RULES "eqString" (==) = eqString #-}
\end{code}
{-# RULES "eqString" (==) = eqString #-}
\end{code}