1 files changed, 6 insertions, 6 deletions

diff --git a/rts/Hpc.c b/rts/Hpc.c
index abf85430ac..37c23c612d 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -39,7 +39,7 @@ static pid_t hpc_pid = 0;               // pid of this process at hpc-boot time.
 static FILE *tixFile;                   // file being read/written
 static int tix_ch;                      // current char
 
-static HashTable * moduleHash = NULL;   // module name -> HpcModuleInfo
+static StrHashTable * moduleHash = NULL;   // module name -> HpcModuleInfo
 
 HpcModuleInfo *modules = 0;
 
@@ -152,11 +152,11 @@ readTix(void) {
     expect(']');
     ws();
 
-    lookup = lookupHashTable(moduleHash, (StgWord)tmpModule->modName);
+    lookup = lookupStrHashTable(moduleHash, tmpModule->modName);
     if (lookup == NULL) {
         debugTrace(DEBUG_hpc,"readTix: new HpcModuleInfo for %s",
                    tmpModule->modName);
-        insertHashTable(moduleHash, (StgWord)tmpModule->modName, tmpModule);
+        insertStrHashTable(moduleHash, tmpModule->modName, tmpModule);
     } else {
         ASSERT(lookup->tixArr != 0);
         ASSERT(!strcmp(tmpModule->modName, lookup->modName));
@@ -265,7 +265,7 @@ hs_hpc_module(char *modName,
       moduleHash = allocStrHashTable();
   }
 
-  tmpModule = lookupHashTable(moduleHash, (StgWord)modName);
+  tmpModule = lookupStrHashTable(moduleHash, modName);
   if (tmpModule == NULL)
   {
       // Did not find entry so add one on.
@@ -282,7 +282,7 @@ hs_hpc_module(char *modName,
       tmpModule->next = modules;
       tmpModule->from_file = false;
       modules = tmpModule;
-      insertHashTable(moduleHash, (StgWord)modName, tmpModule);
+      insertStrHashTable(moduleHash, modName, tmpModule);
   }
   else
   {
@@ -392,7 +392,7 @@ exitHpc(void) {
     writeTix(f);
   }
 
-  freeHashTable(moduleHash, (void (*)(void *))freeHpcModuleInfo);
+  freeStrHashTable(moduleHash, (void (*)(void *))freeHpcModuleInfo);
   moduleHash = NULL;
 
   stgFree(tixFilename);