verboseParseKey :: (FromJSON a) => Text -> Object -> Parser [Either String a]
verboseParseKey key o = do
  raw <- o .: key
  return $ fmap (join . parseEither verboseParser) raw
verboseParseKey :: (FromJSON a) => Text -> Object -> Parser [Either String a]
verboseParseKey key o = do
  raw <- o .: key
  return $ fmap (join . parseEither verboseParser) raw
verboseParseKey key o = do
  raw <- o .: key
  return $ fmap (join . parseEither verboseParser) raw