diff --git a/src/App/Messages/AuthenticationDaemon.purs b/src/App/Messages/AuthenticationDaemon.purs index 08a5282..cd9ca25 100644 --- a/src/App/Messages/AuthenticationDaemon.purs +++ b/src/App/Messages/AuthenticationDaemon.purs @@ -247,6 +247,11 @@ type MatchingUsers = { users :: Array UserPublic.UserPublic } codecGotMatchingUsers ∷ CA.JsonCodec MatchingUsers 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 -} type ErrorMustBeAuthenticated = {} codecGotErrorMustBeAuthenticated :: CA.JsonCodec ErrorMustBeAuthenticated @@ -354,6 +359,7 @@ data AnswerMessage | GotPasswordRecoverySent PasswordRecoverySent -- 9 | GotPasswordRecovered PasswordRecovered -- 10 | GotMatchingUsers MatchingUsers -- 11 + | GotUserDeleted UserDeleted -- 12 | GotErrorMustBeAuthenticated ErrorMustBeAuthenticated -- 20 | GotErrorAlreadyUsedLogin ErrorAlreadyUsedLogin -- 21 | GotErrorMailRequired ErrorMailRequired -- 22 @@ -412,6 +418,7 @@ decode number string 9 -> error_management codecGotPasswordRecoverySent GotPasswordRecoverySent 10 -> error_management codecGotPasswordRecovered GotPasswordRecovered 11 -> error_management codecGotMatchingUsers GotMatchingUsers + 12 -> error_management codecGotUserDeleted GotUserDeleted 20 -> error_management codecGotErrorMustBeAuthenticated GotErrorMustBeAuthenticated 21 -> error_management codecGotErrorAlreadyUsedLogin GotErrorAlreadyUsedLogin 22 -> error_management codecGotErrorMailRequired GotErrorMailRequired