use correct cookie method

robur-coop · Oct 24, 2024 · 2a6c547 · 2a6c547
1 parent d95f8f9
commit 2a6c547
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/storage.ml b/storage.ml
@@ -8,7 +8,7 @@ let current_version = 5
    2 added active
    3 added super_user (but did not serialise it)
    4 properly serialised super_user
-   5 cookie has two new fiels last_access and user_agent
+   5 cookie has two new fields last_access and user_agent
 *)
 
 let t_to_json t =
@@ -46,7 +46,7 @@ let t_of_json json =
                   else if v = 2 || v = 3 then User_model.user_v2_of_json js
                   else if v = 4 then
                     User_model.(user_of_json cookie_v1_of_json) js
-                  else User_model.(user_of_json cookie_v1_of_json) js
+                  else User_model.(user_of_json cookie_of_json) js
                 in
                 Ok (user :: acc))
               (Ok []) users