Haskell: infinite list of random numbers to 'pure' function as an argument

inf-random-list.hs

module Main where

import System.Random (newStdGen, randomRs)

someFunc salts x =
  map mapper $ take 20 salts
  where mapper = (+ x) . floor . (* 10)

main :: IO ()
main = do
  gen <- newStdGen
  let randoms = randomRs (0 :: Float, 1 :: Float) gen
  print $ someFunc randoms 5