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

Fix typos

[project @ 2005-08-12 14:43:04 by simonpj]
Fix typos
fc0c93a9 · simonpj · 0066307c · fc0c93a9
Commit fc0c93a9 authored Aug 12, 2005 by simonpj
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

ghc/compiler/utils/FastString.lhs ghc/compiler/utils/FastString.lhs +1 -1

No files found.
--- 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}