From 6018c72fb39025ee423ad0b33794530ddfe72503 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 31 Jan 2021 02:23:44 +0100 Subject: [PATCH] fix authentication issues --- src/Model/Auth.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Model/Auth.hs b/src/Model/Auth.hs index e5c3480..9ce843f 100644 --- a/src/Model/Auth.hs +++ b/src/Model/Auth.hs @@ -174,7 +174,7 @@ putUserAuthInfo uid method comment payload conn = , C.constant uid , C.constant (fromEnum method) , C.constant comment - , C.constant (encodeUtf8 payload) + , C.constant (either error id $ B64.decode $ encodeUtf8 payload) ) ] , iReturning = rReturning (\(adid, _, _, _, _) -> adid)