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