Commit fc0c93a9 authored by simonpj's avatar simonpj
Browse files

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

Fix typos
parent 0066307c
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment