Support Authorization code flow in OAuth.

.github/workflows/ci.yaml

@@ -12,15 +12,15 @@ jobs:
       fail-fast: false
       matrix:
         os:
-          - macos-latest
-          - ubuntu-latest
-          - windows-latest
+          - macos-11
+          - ubuntu-20.04
+          - windows-2019
 
         ocaml-compiler:
           - 4.08.x
-          - 4.09.x
-          - 4.10.x
-          - 4.11.x
+          # - 4.09.x
+          # - 4.10.x
+          # - 4.11.x
           - 4.12.x
           - 4.13.x
 

cli/config.ml

@@ -10,7 +10,7 @@ let from_file () =
   | Ok toml ->
       let user = Otoml.(find toml get_string [ "gitlab.com"; "user" ])
       and token' = Otoml.(find toml get_string [ "gitlab.com"; "token" ]) in
-      { token = Gitlab.Token.of_string token'; user }
+      { token = Gitlab.Token.AccessToken token'; user }
   | Error err ->
       Printf.eprintf "Missing lab configuration file at ~/.config/lab";
       raise (Config err)

lib/gitlab.atd

@@ -978,6 +978,14 @@ type scope = [
   | WriteRepository <json name="write_repository">
 ]
 
+type auth = {
+  access_token: string;
+  token_type: string;
+  expires_in: int;
+  refresh_token: string;
+  created_at: int;
+}
+
 type personal_access_token = {
   id: int;
   name: string;