1 files changed, 11 insertions, 0 deletions
diff --git a/rts/RtsMain.c b/rts/RtsMain.c
index d9f05576a0..57c38742b6 100644
--- a/rts/RtsMain.c
+++ b/rts/RtsMain.c
@@ -13,6 +13,7 @@
 #include "RtsAPI.h"
 
 #include "RtsUtils.h"
+#include "RtsFlags.h"
 #include "Prelude.h"
 #include "Task.h"
 #include "Excn.h"
@@ -48,6 +49,16 @@ int hs_main ( int argc, char *argv[],       // program args
     int exit_status;
     SchedulerStatus status;
 
+    // See Note: [Windows Unicode Arguments] in rts/RtsFlags.c
+    #if defined(mingw32_HOST_OS)
+    {
+        argv = getUTF8Args(&argc);
+    }
+    #endif
+
+
+
+
     hs_init_ghc(&argc, &argv, rts_config);
 
     // kick off the computation by creating the main thread with a pointer