From 19cca2cff311f47e55c066e7cf25e8346e2a948a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 19 Mar 2004 10:45:42 +0000
Subject: [PATCH] [project @ 2004-03-19 10:45:42 by simonmar] Bugfix for
 insert (from the missing-prime class of bugs)

---
 Data/HashTable.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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