From fc0c93a9e90261baf9590b6208f8a51b2d413d63 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 12 Aug 2005 14:43:04 +0000
Subject: [PATCH] [project @ 2005-08-12 14:43:04 by simonpj] Fix typos

---
 ghc/compiler/utils/FastString.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}
-- 
1.7.10.4