wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify getProcessId

Browse Source
This commit is contained in:
dons 2005-05-03 23:55:45 +00:00
parent 7c13559ec6
commit 9fc0ea0f24
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/plugins/Plugins/MkTemp.hs
View File

@ -97,8 +97,9 @@ gettemp path doopen domkdir slen = do
-- --
-- replace end of template with process id, and rest with randomness -- replace end of template with process id, and rest with randomness
-- --
;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 $ abs `fmap` getProcessID
-- ;pid <- liftM show $ getProcessID -- getProcessID returns a negative number? why, dunno, but the minus
-- sign screws up Module header names, illegal char.
;let (rest, xs) = merge tmpl pid ;let (rest, xs) = merge tmpl pid
;as <- randomise rest ;as <- randomise rest
;let tmpl' = as ++ xs ;let tmpl' = as ++ xs