Middleware: rename get_cookie_from_request to session_cookie

middleware.ml

@@ -132,7 +132,7 @@ let user_from_auth_cookie cookie users =
   | Some user -> Ok user
   | None -> Error (`Msg "User not found")
 
-let get_cookie_from_request reqd =
+let session_cookie reqd =
   match cookie User_model.session_cookie reqd with
   | Some auth_cookie -> (
       match cookie_value auth_cookie with
@@ -146,7 +146,7 @@ let get_cookie_from_request reqd =
       Error (`Msg "User not found")
 
 let user_of_cookie users now reqd =
-  match get_cookie_from_request reqd with
+  match session_cookie reqd with
   | Ok auth_cookie -> (
       match user_from_auth_cookie auth_cookie users with
       | Ok user -> (

unikernel.ml

@@ -147,7 +147,7 @@ struct
       (fun reqd ->
         match Middleware.user_of_cookie users now reqd with
         | Ok user -> (
-            match Middleware.get_cookie_from_request reqd with
+            match Middleware.session_cookie reqd with
             | Ok cookie_value -> (
                 match
                   User_model.user_auth_cookie_from_user cookie_value user
@@ -587,7 +587,7 @@ struct
          `OK)
 
   let account_page store reqd (user : User_model.user) =
-    match Middleware.get_cookie_from_request reqd with
+    match Middleware.session_cookie reqd with
     | Ok cookie_value -> (
         match User_model.user_auth_cookie_from_user cookie_value user with
         | Some cookie -> (
@@ -711,7 +711,7 @@ struct
           ~data:"Update password: expected a dictionary" `Bad_request
 
   let close_sessions store reqd (user : User_model.user) =
-    match Middleware.get_cookie_from_request reqd with
+    match Middleware.session_cookie reqd with
     | Ok cookie_value -> (
         match User_model.user_auth_cookie_from_user cookie_value user with
         | Some cookie -> (