From: simonmar <unknown>
Date: Fri, 19 Mar 2004 10:45:42 +0000 (+0000)
Subject: [project @ 2004-03-19 10:45:42 by simonmar]
X-Git-Tag: nhc98-1-18-release~347
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=19cca2cff311f47e55c066e7cf25e8346e2a948a;p=ghc-base.git

[project @ 2004-03-19 10:45:42 by simonmar]
Bugfix for insert (from the missing-prime class of bugs)
---

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index 9fbe735..cbc3f5c 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -220,7 +220,7 @@ insert (HashTable ref) key val = do
 	   then expandHashTable table1
 	   else return table1
   writeIORef ref table2
-  (segment_index,segment_offset) <- tableLocation table key
+  (segment_index,segment_offset) <- tableLocation table2 key
   segment <- myReadArray dir segment_index
   bucket <- myReadArray segment segment_offset
   myWriteArray segment segment_offset ((key,val):bucket)