-- Lots of boilerplate but the disadvantages of Template Haskell made me move over to this
title' :: [MediaType] -> Maybe T.Text
title' (x:xs) = case x of
    (Title a) -> Just a
    _ -> title' xs
title' :: [MediaType] -> Maybe T.Text
title' (x:xs) = case x of
    (Title a) -> Just a
    _ -> title' xs
title' (x:xs) = case x of
    (Title a) -> Just a
    _ -> title' xs