fetchKeyFromAccount :: Account -> T.Text -> M.Map T.Text AccountConfig
fetchKeyFromAccount a g =
  M.filter (\v -> g == httpDomainConfig(url v)) (accountMap a)
fetchKeyFromAccount :: Account -> T.Text -> M.Map T.Text AccountConfig
fetchKeyFromAccount a g =
  M.filter (\v -> g == httpDomainConfig(url v)) (accountMap a)
fetchKeyFromAccount a g =
  M.filter (\v -> g == httpDomainConfig(url v)) (accountMap a)