X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTypeable.c;h=4c4d460d667147f3999906136157548447cb98de;hb=afef39736dcde6f4947a6f362f9e6b3586933db4;hp=e07c764c55362bc6a27215d58f8dbe72c84ff23b;hpb=52589e05f86d593bc3e6ea3f1a0b8f6ceae94fe6;p=ghc-hetmet.git

diff --git a/rts/Typeable.c b/rts/Typeable.c
index e07c764..4c4d460 100644
--- a/rts/Typeable.c
+++ b/rts/Typeable.c
@@ -20,7 +20,7 @@ void
 exitTypeableStore()
 {
 #ifdef THREADED_RTS
-    /* TODO: Free Mutex! */
+    closeMutex(&typeableStoreLock);
 #endif
     if(typeableStore!=0) {
         freeStablePtr((StgStablePtr)typeableStore);