Migrate to OCaml 3.12.1

astrada · Dec 19, 2011 · 4d6992a · 4d6992a
1 parent 80f7c5e
commit 4d6992a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/gapi/gapiAuth.ml b/src/gapi/gapiAuth.ml
@@ -62,6 +62,6 @@ let generate_authorization_header
           Some (GapiOAuth1.generate_oauth_header
                   oauth_fields_to_sign
                   signature)
-    | OAuth2 { oauth2_token = token } ->
+    | OAuth2 { oauth2_token = token; _ } ->
         Some ("Bearer " ^ token)
 
diff --git a/src/gapi/gapiRequest.ml b/src/gapi/gapiRequest.ml
@@ -160,7 +160,7 @@ let refresh_oauth2_token session =
     match auth_data with
         GapiAuth.OAuth2 { GapiAuth.client_id = client_id;
                            GapiAuth.client_secret = client_secret;
-                           GapiAuth.refresh_token = refresh_token } ->
+                           GapiAuth.refresh_token = refresh_token; _ } ->
           let (response, new_session) =
             GapiOAuth2.refresh_access_token
               ~client_id
@@ -198,7 +198,9 @@ let rec gapi_request
   try
     let verified_session =
       match session.GapiConversation.Session.auth with
-          GapiConversation.Session.OAuth2 { GapiConversation.Session.oauth2_token = "" } ->
+          GapiConversation.Session.OAuth2 {
+            GapiConversation.Session.oauth2_token = ""; _
+          } ->
             refresh_oauth2_token session
         | _ ->
             session