synopsis' :: [MediaType] -> Maybe T.Text
synopsis' (x:xs) = case x of
    (Synopsis a) -> Just a
    _ -> synopsis' xs
synopsis' :: [MediaType] -> Maybe T.Text
synopsis' (x:xs) = case x of
    (Synopsis a) -> Just a
    _ -> synopsis' xs
synopsis' (x:xs) = case x of
    (Synopsis a) -> Just a
    _ -> synopsis' xs