X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=8ab964dcb37134677fbd5607f1e7867de694f144;hp=cc5cbb476fe934dfe450f479d34ec8899271d60d;hb=b7ea7671c442a0223f34593dc8a1182b15dde0bf;hpb=4af25e1a72f2d0f1f523fe5b13c71f1b3dc7a5a5

diff --git a/rts/Schedule.c b/rts/Schedule.c
index cc5cbb4..8ab964d 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2114,14 +2114,13 @@ exitScheduler(
 	boundTaskExiting(task);
 	stopTaskManager();
     }
-#else
-    freeCapability(&MainCapability);
 #endif
 }
 
 void
 freeScheduler( void )
 {
+    freeCapabilities();
     freeTaskManager();
     if (n_capabilities != 1) {
         stgFree(capabilities);