From 2a6c547ad2de2458f710b28455f7cc8f87578aad Mon Sep 17 00:00:00 2001 From: PizieDust Date: Fri, 25 Oct 2024 00:32:09 +0200 Subject: [PATCH] use correct cookie method --- storage.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/storage.ml b/storage.ml index adad719..e65acd9 100644 --- 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