getGithubAccessToken :: Key Account -> SqlPersistM (Maybe AccessToken)
getGithubAccessToken key =
  onlyOne . fmap unValue <$>
  (select . from $ \accountGithub -> do
     where_ (accountGithub ^. AccountGithubAccountId ==. val key)
     return (accountGithub ^. AccountGithubAccessToken))
getGithubAccessToken :: Key Account -> SqlPersistM (Maybe AccessToken)
getGithubAccessToken key =
  onlyOne . fmap unValue <$>
  (select . from $ \accountGithub -> do
     where_ (accountGithub ^. AccountGithubAccountId ==. val key)
     return (accountGithub ^. AccountGithubAccessToken))
getGithubAccessToken key =
  onlyOne . fmap unValue <$>
  (select . from $ \accountGithub -> do
     where_ (accountGithub ^. AccountGithubAccountId ==. val key)
     return (accountGithub ^. AccountGithubAccessToken))