Simplify getProcessId
This commit is contained in:
parent
7c13559ec6
commit
9fc0ea0f24
@ -97,8 +97,9 @@ gettemp path doopen domkdir slen = do
|
||||
--
|
||||
-- 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 $ getProcessID
|
||||
;pid <- liftM show $ abs `fmap` 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
|
||||
;as <- randomise rest
|
||||
;let tmpl' = as ++ xs
|
||||
|
Loading…
x
Reference in New Issue
Block a user