imdbID' :: [MediaType] -> Maybe String
imdbID' (x:xs) = case x of
    (IMDBid a) -> Just a
    _ -> imdbID' xs
imdbID' :: [MediaType] -> Maybe String
imdbID' (x:xs) = case x of
    (IMDBid a) -> Just a
    _ -> imdbID' xs
imdbID' (x:xs) = case x of
    (IMDBid a) -> Just a
    _ -> imdbID' xs