+
+#if defined(mingw32_HOST_OS) && (__GLASGOW_HASKELL__ <= 408)
+rawSystem :: String -> IO ExitCode
+rawSystem cmd = system cmd
+ -- mingw only: if you try to build a stage2 compiler with a stage1
+ -- that has been bootstrapped with 4.08 (or earlier), this will run
+ -- into problems with limits on command-line lengths with the std.
+ -- Win32 command interpreters. So don't this - use 5.00 or later
+ -- to compile up the GHC sources.
+#endif
+
+quote :: String -> String
+#if defined(mingw32_HOST_OS)
+quote "" = ""
+quote s = "\"" ++ s ++ "\""
+#else
+quote s = s
+#endif
+