rando-0.0.0.3: src/System/Random/Rando/Internal.hs

module System.Random.Rando.Internal (
     inIO
   ) where

-- import System.Random (RandomGen)
import System.Random.TF

inIO :: (TFGen -> (x, TFGen)) -> IO x
inIO f = do
   g <- newTFGen
   let (x, _) = f g
   pure x