we don't need OutOfHeapHook(), and the version in the RTS has a better message

diff --git a/compiler/parser/hschooks.c b/compiler/parser/hschooks.c
index f3e7447..5c87b31 100644 (file)
--- a/compiler/parser/hschooks.c
+++ b/compiler/parser/hschooks.c
@@ -39,15 +39,6 @@ defaultsHook (void)
 }
 
 void
-OutOfHeapHook (unsigned long request_size/* always zero these days */,
-              unsigned long heap_size)
-    /* both in bytes */
-{
-    fprintf(stderr, "GHC's heap exhausted: current limit is %lu bytes;\nUse the `-M<size>' option to increase the total heap size.\n",
-       heap_size);
-}
-
-void
 StackOverflowHook (unsigned long stack_size)    /* in bytes */
 {
     fprintf(stderr, "GHC stack-space overflow: current limit is %ld bytes.\nUse the `-K<size>' option to increase it.\n", stack_size);