From 7c13559ec671f9ef628f6512f27b8d2cbfefb782 Mon Sep 17 00:00:00 2001
From: "vivian.mcphail" <vivian.mcphail@paradise.net.nz>
Date: Tue, 3 May 2005 14:54:20 +0000
Subject: [PATCH] negative-pid-cygwin

---
 src/plugins/Plugins/MkTemp.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/plugins/Plugins/MkTemp.hs b/src/plugins/Plugins/MkTemp.hs
index f38f39f..5d84296 100644
--- a/src/plugins/Plugins/MkTemp.hs
+++ b/src/plugins/Plugins/MkTemp.hs
@@ -97,7 +97,8 @@ gettemp path doopen domkdir slen = do
     --
     -- replace end of template with process id, and rest with randomness
     --
-    ;pid <- liftM show $ getProcessID
+    ;pid <- liftM show $ do {v <- getProcessID ; return $ abs v} -- getProcessID returns a negative number? why, dunno, but the minus sign screws up Module header names, illegal char.
+--    ;pid <- liftM show $ getProcessID
     ;let (rest, xs) = merge tmpl pid
     ;as <- randomise rest
     ;let tmpl' = as ++ xs