GHC new build system megapatch

[ghc-hetmet.git] / utils / hp2ps / Main.c

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