Take new reponse into account: UserDeleted

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