Add VaultUpdate case for banning + whoami

pull/1/head
Bram van den Heuvel 2023-03-24 15:16:40 +01:00
parent eb047e0bff
commit 4de2bd03b1
1 changed files with 8 additions and 0 deletions

View File

@ -112,6 +112,10 @@ updateWith vaultUpdate ((Vault ({ cred, context } as data)) as vault) =
MultipleUpdates updates -> MultipleUpdates updates ->
List.foldl updateWith vault updates List.foldl updateWith vault updates
-- TODO
BanUser input output ->
vault
GetEvent input output -> GetEvent input output ->
case getRoomById input.roomId vault of case getRoomById input.roomId vault of
Just room -> Just room ->
@ -290,6 +294,10 @@ updateWith vaultUpdate ((Vault ({ cred, context } as data)) as vault) =
UpdateAccessToken token -> UpdateAccessToken token ->
Vault { data | context = Credentials.addToken token context } Vault { data | context = Credentials.addToken token context }
-- TODO
UpdateRawAccessToken token output ->
vault
UpdateVersions versions -> UpdateVersions versions ->
Vault { data | context = Credentials.addVersions versions context } Vault { data | context = Credentials.addVersions versions context }