On Windows, splitGen does not evaluate.

[ahgibbons]

When trying to use the splitGen function from Crypto.Random, my program just hangs and it never evaluates.

Here is how it can be done in ghci by checking if the result of splitGen is Right or Left:

>> import Crypto.Random
>> import Data.Either
>> g <- newGenIO :: IO SystemRandom
>> let newGens = splitGen g
>> isRight newGens

This function just hangs for me.

Edit: I've read more into the package and appears that this behavior is known. Maybe this topic can be closed but is there a way to fix this behavior?