Cows

Documentation

type Cow = Text

allCows :: [Text]

All the cows!

randomCow :: RVar Cow

Get a random cow from a uniform distribution.

import Data.Random.RVar (runRVar)
import Data.Random.Source.DevRandom( DevRandom( DevURandom ) )
import qualified Data.Text.IO as TIO
runRVar randomCow DevURandom
TIO.putStrLn =<< runRVar randomCow DevURandom