X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsMessages.c;h=1242d886eb301460152e65d4dc736ae91ffdfbeb;hb=3eacdc7faf0d0e87a7201253f9f12c1fb4db7249;hp=93b87a218102d941544b108c2961dc3a489117cc;hpb=6dca3dad360cf43afe0028b14edf930604fec235;p=ghc-hetmet.git

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index 93b87a2..1242d88 100644
--- a/ghc/rts/RtsMessages.c
+++ b/ghc/rts/RtsMessages.c
@@ -107,6 +107,9 @@ isGUIApp()
 }
 #endif
 
+#define xstr(s) str(s)
+#define str(s) #s
+
 void
 rtsFatalInternalErrorFn(char *s, va_list ap)
 {
@@ -135,7 +138,8 @@ rtsFatalInternalErrorFn(char *s, va_list ap)
      }
      vfprintf(stderr, s, ap);
      fprintf(stderr, "\n");
-     fprintf(stderr, "    Please report this as a compiler bug.  See:\nhttp://www.haskell.org/ghc/reportabug\n");
+     fprintf(stderr, "    (GHC version %s for %s)\n", ProjectVersion, xstr(HostPlatform_TYPE));
+     fprintf(stderr, "    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug\n");
      fflush(stderr);
   }