From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 28 Feb 2007 12:03:19 +0000 (+0000)
Subject: Windows: the .hp file is <prog>.exe.hp
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6a7778b95a726f460288123d0539310bb66302f4

Windows: the .hp file is <prog>.exe.hp
---

diff --git a/utils/hp2ps/Main.c b/utils/hp2ps/Main.c
index eb50e00..53f010b 100644
--- a/utils/hp2ps/Main.c
+++ b/utils/hp2ps/Main.c
@@ -145,8 +145,12 @@ nextarg: ;
     if (!filter) {
 	pathName = copystring(argv[0]);
 	DropSuffix(pathName, ".hp");
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
+	DropSuffix(pathName, ".exe");
+        pathName = copystring2(pathName,".exe");
+#endif
 	baseName = copystring(Basename(pathName));
-
+        
         hpfp  = Fp(pathName, &hpfile, ".hp", "r"); 
 	psfp  = Fp(baseName, &psfile, ".ps", "w");