From: malcolm <unknown>
Date: Thu, 30 Sep 2004 10:01:46 +0000 (+0000)
Subject: [project @ 2004-09-30 10:01:46 by malcolm]
X-Git-Tag: nhc98-1-18-release~233
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dd17d11799a1b867669470bae63267f7efbe541b;p=ghc-base.git

[project @ 2004-09-30 10:01:46 by malcolm]
Add a type signature to help nhc98 out.
---

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index cc4c32b..b392ce2 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -343,7 +343,7 @@ update (HashTable ref) key val = do
   segment <- myReadArray dir segment_index
   bucket <- myReadArray segment segment_offset
   let 
-    (deleted,bucket') = foldr filt (0,[]) bucket
+    (deleted,bucket') = foldr filt (0::Int32,[]) bucket
     filt pair@(k,v) (deleted,bucket)
 	| key `cmp` k = (deleted+1, bucket)
 	| otherwise   = (deleted,   pair:bucket)