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)