infinite random list, with MonadRandom

gistfile1.txt

import Control.Monad.Random

randomList :: MonadRandom m => m [Double]
randomList = do
  start <- getRandomR (0.7 :: Double, 1.2)
  go start
    where go prev = do
            new <- getRandomR (min 0.7 (prev-0.1), max (prev+0.1) 1.2)
            acc <- go new
            return (new : acc)

foo :: IO ()
foo = evalRandIO randomList >>= (print . take 10)