Creating a steady timed signal from random and feeding it into HTML output

random-signal.elm

import Html exposing (..)
import Random
import Random exposing (Seed)
import Signal exposing (Signal, (<~), (~))
import Time exposing (every, second)

randomFloat : Seed -> Float
randomFloat seed = seed |> (Random.generate <| Random.float 0 1) |> fst

randomBool : Seed -> Bool
randomBool seed = randomFloat seed |> (\f -> if f > 0.5 then True else False)

timedSeedSignal : Signal Seed
timedSeedSignal = Random.initialSeed << round <~ every second

randomBoolSignal : Signal Bool
randomBoolSignal = randomBool <~ timedSeedSignal

main : Signal Html
main = (\b -> p [] [text <| toString b]) <~ randomBoolSignal

I had quite a hard time trying to figure out how to create a random signal in elm and displaying it, so when I finally had something working, I thought I might just drop it here.