Take new reponse into account: UserDeleted
parent
fba25826de
commit
d7f6bd225a
|
@ -247,6 +247,11 @@ type MatchingUsers = { users :: Array UserPublic.UserPublic }
|
||||||
codecGotMatchingUsers ∷ CA.JsonCodec MatchingUsers
|
codecGotMatchingUsers ∷ CA.JsonCodec MatchingUsers
|
||||||
codecGotMatchingUsers = CA.object "MatchingUsers" (CAR.record { users: CA.array UserPublic.codec })
|
codecGotMatchingUsers = CA.object "MatchingUsers" (CAR.record { users: CA.array UserPublic.codec })
|
||||||
|
|
||||||
|
{- 12 -}
|
||||||
|
type UserDeleted = { uid :: Int }
|
||||||
|
codecGotUserDeleted ∷ CA.JsonCodec UserDeleted
|
||||||
|
codecGotUserDeleted = CA.object "UserDeleted" (CAR.record { uid: CA.int })
|
||||||
|
|
||||||
{- 20 -}
|
{- 20 -}
|
||||||
type ErrorMustBeAuthenticated = {}
|
type ErrorMustBeAuthenticated = {}
|
||||||
codecGotErrorMustBeAuthenticated :: CA.JsonCodec ErrorMustBeAuthenticated
|
codecGotErrorMustBeAuthenticated :: CA.JsonCodec ErrorMustBeAuthenticated
|
||||||
|
@ -354,6 +359,7 @@ data AnswerMessage
|
||||||
| GotPasswordRecoverySent PasswordRecoverySent -- 9
|
| GotPasswordRecoverySent PasswordRecoverySent -- 9
|
||||||
| GotPasswordRecovered PasswordRecovered -- 10
|
| GotPasswordRecovered PasswordRecovered -- 10
|
||||||
| GotMatchingUsers MatchingUsers -- 11
|
| GotMatchingUsers MatchingUsers -- 11
|
||||||
|
| GotUserDeleted UserDeleted -- 12
|
||||||
| GotErrorMustBeAuthenticated ErrorMustBeAuthenticated -- 20
|
| GotErrorMustBeAuthenticated ErrorMustBeAuthenticated -- 20
|
||||||
| GotErrorAlreadyUsedLogin ErrorAlreadyUsedLogin -- 21
|
| GotErrorAlreadyUsedLogin ErrorAlreadyUsedLogin -- 21
|
||||||
| GotErrorMailRequired ErrorMailRequired -- 22
|
| GotErrorMailRequired ErrorMailRequired -- 22
|
||||||
|
@ -412,6 +418,7 @@ decode number string
|
||||||
9 -> error_management codecGotPasswordRecoverySent GotPasswordRecoverySent
|
9 -> error_management codecGotPasswordRecoverySent GotPasswordRecoverySent
|
||||||
10 -> error_management codecGotPasswordRecovered GotPasswordRecovered
|
10 -> error_management codecGotPasswordRecovered GotPasswordRecovered
|
||||||
11 -> error_management codecGotMatchingUsers GotMatchingUsers
|
11 -> error_management codecGotMatchingUsers GotMatchingUsers
|
||||||
|
12 -> error_management codecGotUserDeleted GotUserDeleted
|
||||||
20 -> error_management codecGotErrorMustBeAuthenticated GotErrorMustBeAuthenticated
|
20 -> error_management codecGotErrorMustBeAuthenticated GotErrorMustBeAuthenticated
|
||||||
21 -> error_management codecGotErrorAlreadyUsedLogin GotErrorAlreadyUsedLogin
|
21 -> error_management codecGotErrorAlreadyUsedLogin GotErrorAlreadyUsedLogin
|
||||||
22 -> error_management codecGotErrorMailRequired GotErrorMailRequired
|
22 -> error_management codecGotErrorMailRequired GotErrorMailRequired
|
||||||
|
|
Loading…
Reference in New Issue