update submodules for GHC.HetMet.GArrow -> Control.GArrow renaming

[ghc-hetmet.git] / rts / ThreadLabels.c

diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c
index aa620f0..6d2a5d6 100644 (file)
--- a/rts/ThreadLabels.c
+++ b/rts/ThreadLabels.c
@@ -33,12 +33,12 @@ void
 freeThreadLabelTable(void)
 {
     if (threadLabels != NULL) {
-        freeHashTable(threadLabels, NULL);
+        freeHashTable(threadLabels, stgFree);
         threadLabels = NULL;
     }
 }
 
-void
+static void
 updateThreadLabel(StgWord key, void *data)
 {
   removeThreadLabel(key);