rate : Int -> Model -> Model
rate rating ({currentMovie} as model) =
|> updateMovie (addRating rating)
updateMovie : (Movie -> Movie) -> Model -> Model
updateMovie fun ({currentMovie} as model) =
{ model | currentMovie = fun currentMovie}
addRating : Int -> Movie -> Movie
{ movie | rating = rating}