[Haskell-cafe] random colors, stack space overflow, mersenne and mersenne.pure64

[Don Stewart]

cetin.sert:
>      random  = color2
>      randomR = colorR
> 
>    color2 :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
>    color2 = colorR (minRGB,maxRGB)
> 
>    color :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
>    color s0 = ((r,g,b),s3)
>      where

^^^^^^^^^^

There's some corruption in this text. Could you post the file somewhere?

-- Don