Fix mergeo
This commit is contained in:
parent
d431902833
commit
98ea2802c9
@ -97,8 +97,7 @@ 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 $ getProcessID
|
||||||
-- ;pid <- liftM show $ getProcessID
|
|
||||||
;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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user