[commit: ghc] master: rts: Add missing `const` from HashTable API (f18e8d8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f18e8d8db6246340c8840bd0ca2c43767009f14c/ghc

>---------------------------------------------------------------

commit f18e8d8db6246340c8840bd0ca2c43767009f14c
Author: Erik de Castro Lopo <erikd at mega-nerd.com>
Date:   Thu May 19 06:19:24 2016 +1000

    rts: Add missing `const` from HashTable API
    
    Thanks to Tamar Christina (Phyx) for spotting this.
    
    Test Plan: Validate
    
    Reviewers: simonmar, austin, trofi, bgamari, hsyl20, Phyx
    
    Reviewed By: Phyx
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D2236


>---------------------------------------------------------------

f18e8d8db6246340c8840bd0ca2c43767009f14c
 rts/Hash.c | 2 +-
 rts/Hash.h | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/Hash.c b/rts/Hash.c
index 1b193e3..1f8c0ca 100644
--- a/rts/Hash.c
+++ b/rts/Hash.c
@@ -303,7 +303,7 @@ insertHashTable(HashTable *table, StgWord key, const void *data)
 }
 
 void *
-removeHashTable(HashTable *table, StgWord key, void *data)
+removeHashTable(HashTable *table, StgWord key, const void *data)
 {
     int bucket;
     int segment;
diff --git a/rts/Hash.h b/rts/Hash.h
index 2d0c558..ebefd6f 100644
--- a/rts/Hash.h
+++ b/rts/Hash.h
@@ -22,7 +22,7 @@ typedef struct hashtable HashTable; /* abstract */
 HashTable * allocHashTable    ( void );
 void        insertHashTable ( HashTable *table, StgWord key, const void *data );
 void *      lookupHashTable ( const HashTable *table, StgWord key );
-void *      removeHashTable ( HashTable *table, StgWord key, void *data );
+void *      removeHashTable ( HashTable *table, StgWord key, const void *data );
 
 int keyCountHashTable (HashTable *table);