fix authentication issues

This commit is contained in:
nek0 2021-01-31 02:23:44 +01:00
parent c9d9c711b5
commit 6018c72fb3

View file

@ -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)