imdbRating' :: [MediaType] -> Maybe Float
imdbRating' (x:xs) = case x of
    (IMDBRating a) -> Just a
    _ -> imdbRating' xs
imdbRating' :: [MediaType] -> Maybe Float
imdbRating' (x:xs) = case x of
    (IMDBRating a) -> Just a
    _ -> imdbRating' xs
imdbRating' (x:xs) = case x of
    (IMDBRating a) -> Just a
    _ -> imdbRating' xs