season' :: [MediaType] -> Maybe Int
season' (x:xs) = case x of
    (SeasonNo a) -> Just a
    _ -> season' xs
season' :: [MediaType] -> Maybe Int
season' (x:xs) = case x of
    (SeasonNo a) -> Just a
    _ -> season' xs
season' (x:xs) = case x of
    (SeasonNo a) -> Just a
    _ -> season' xs