FIX #1955: confusion between .exe.hp and .hp suffixes for heap profiles

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

diff --git a/utils/hp2ps/Main.c b/utils/hp2ps/Main.c
index 53f010b..947ff46 100644 (file)
--- a/utils/hp2ps/Main.c
+++ b/utils/hp2ps/Main.c
@@ -147,7 +147,6 @@ nextarg: ;
        DropSuffix(pathName, ".hp");
 #if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
        DropSuffix(pathName, ".exe");
-        pathName = copystring2(pathName,".exe");
 #endif
        baseName = copystring(Basename(pathName));