X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=937334bdabe3b4125f5dc601b227591c4edada51;hb=e119cde9caf1f2acbde7ff53feebdc27d6c35f8d;hp=5bb980674dd35acd5b26fd7b90a81e220284a2db;hpb=d526504719676871376324858fe2073aa2011424;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 5bb9806..937334b 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -438,6 +438,9 @@ hs_exit(void)
     // also outputs the stats (+RTS -s) info.
     exitStorage();
     
+    /* free the tasks */
+    freeScheduler();
+
     /* free shared Typeable store */
     exitTypeableStore();