getProject :: T.Text -> AccountConfig -> IO Project
getProject repoUrl a = do
  projectResponseBody <-
    apiCall (AccountConfig (key (a :: AccountConfig)) (url a ++ "/projects"))
  case parseProject projectResponseBody of
    Just projects ->
      return (head $ filter (\p -> ssh_url_to_repo p == repoUrl) projects)
    Nothing -> error "Unable to fetch projects"
getProject :: T.Text -> AccountConfig -> IO Project
getProject repoUrl a = do
  projectResponseBody <-
    apiCall (AccountConfig (key (a :: AccountConfig)) (url a ++ "/projects"))
  case parseProject projectResponseBody of
    Just projects ->
      return (head $ filter (\p -> ssh_url_to_repo p == repoUrl) projects)
    Nothing -> error "Unable to fetch projects"
getProject repoUrl a = do
  projectResponseBody <-
    apiCall (AccountConfig (key (a :: AccountConfig)) (url a ++ "/projects"))
  case parseProject projectResponseBody of
    Just projects ->
      return (head $ filter (\p -> ssh_url_to_repo p == repoUrl) projects)
    Nothing -> error "Unable to fetch projects"