X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=c21aac767cd97a1b536f403028591554dfae31b6;hb=1c83695b5b9ae3175c18908c1d58aeadb1f225ae;hp=bc8379e4c56568467b8682f19a7721add2cd768d;hpb=62e61e0cb686a86e062c830674d50503bc9a79c1;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index bc8379e..c21aac7 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -63,6 +63,9 @@
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif
+#ifdef HAVE_LOCALE_H
+#include <locale.h>
+#endif
 
 #if USE_PAPI
 #include "Papi.h"
@@ -132,6 +135,8 @@ hs_init(int *argc, char **argv[])
 	return;
     }
 
+    setlocale(LC_CTYPE,"");
+
     /* Initialise the stats department, phase 0 */
     initStats0();