= "github" :> Summary "GitHub callback" :> QueryParam "code" Text :> Get '[ PlainText] Text
type GitLabCallback
= "gitlab" :> QueryParam "code" Text :> QueryParam "state" Text :> Get '[ PlainText] Text
type OAuthAPI
= "oauth" :> "callback" :> Summary "OAuth callback" :> (GitHubCallback :<|> GitLabCallback)
Может пригодиться https://hackage.haskell.org/package/servant-flatten
Обсуждают сегодня