From: simonpj <unknown>
Date: Fri, 12 Aug 2005 14:43:04 +0000 (+0000)
Subject: [project @ 2005-08-12 14:43:04 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~238
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fc0c93a9e90261baf9590b6208f8a51b2d413d63;p=ghc-hetmet.git

[project @ 2005-08-12 14:43:04 by simonpj]
Fix typos
---

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 0f9772c..52512d3 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -399,7 +399,7 @@ hashSubStrBA ba# start# len# = loop 0# 0#
 
 hashUnicode :: [Int] -> Int# -> Int#
 hashUnicode [] h = h
-hashUnicode (I# c : cs) h = hashUnicode cs ((ord# c + (h *# 128)) `remInt#` hASH_TBL_SIZE#)
+hashUnicode (I# c : cs) h = hashUnicode cs ((c +# (h *# 128#)) `remInt#` hASH_TBL_SIZE#)
 \end{code}
 
 \begin{code}