From 818ee7421c40008d99c614f9adbcc56a38a06c2c Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 17 Apr 2022 13:50:50 +0200 Subject: [PATCH] do not base64decode payload --- 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 891daee..38b80bd 100644 --- a/src/Model/Auth.hs +++ b/src/Model/Auth.hs @@ -180,7 +180,7 @@ putUserAuthInfo uid method comment payload conn = , toFields uid , toFields (fromEnum method) , toFields comment - , toFields (either error id $ B64.decode $ encodeUtf8 payload) + , toFields (encodeUtf8 payload) ) ] , iReturning = rReturning (\(adid, _, _, _, _) -> adid)