module Movie exposing (Movie,fromTitle,addRating)
{-| adds a Rating to a Movie,
Only allows ratings between 1 and 5.
addRating : Int -> Movie -> Maybe Movie
addRating rating (Movie movie) =
if 1 <= rating && rating <= 5 then
Just <| Movie { movie | rating = rating}
{-| Constructs a Movie from a Title
fromTitle : String -> Movie