X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMain.c;h=aff3011e36625ca9bbd63f1c281cfa5888a96df6;hb=34cc75e1a62638f2833815746ebce0a9114dc26b;hp=434f79156b668079f7e07abe30e68f115816fa21;hpb=49b8105e8d56c90099234e31c32ba3f1643276fe;p=ghc-hetmet.git

diff --git a/rts/Main.c b/rts/Main.c
index 434f791..aff3011 100644
--- a/rts/Main.c
+++ b/rts/Main.c
@@ -126,6 +126,9 @@ static void real_main(void)
       errorBelch("interrupted");
       exit_status = EXIT_INTERRUPTED;
       break;
+    case HeapExhausted:
+      exit_status = EXIT_HEAPOVERFLOW;
+      break;
     case Success:
       exit_status = EXIT_SUCCESS;
       break;