X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=b0e7cfac32e5ef333c76cb04acb5e865e4f11493;hb=acdff50c263a13d1048ab87bea5508c5c9e51146;hp=845f909994e04d266767db025f6c4bfca7f9659a;hpb=4fb923d8cc248d02ff9f688e46453428c68633aa;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 845f909..b0e7cfa 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1330,8 +1330,10 @@ maybeCreateManifest dflags exe_filename = do
   rc_obj_filename <- newTempName dflags (objectSuf dflags)
 
   writeFile rc_filename $
-      "1 24 MOVEABLE PURE \"" ++ manifest_filename ++ "\"\n"
+      "1 24 MOVEABLE PURE " ++ show manifest_filename ++ "\n"
         -- magic numbers :-)
+        -- show is a bit hackish above, but we need to esacpe the
+        -- backslashes in the path.
 
   let wr_opts = getOpts dflags opt_windres
   runWindres dflags $ map SysTools.Option $