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)