Currently the host and scheme is hard coded at
|
let entry_uri = "https://github.com/login/oauth/authorize" in |
I would be great if we can add support for GitHub Enterprise Server.
i.e.
let authorize
?(scheme="https")
?(host="github.com")
...
=
...
Uri.make ~scheme ~host ~path:"login/oauth/access_token" ~query ()