Add VaultUpdate case for banning + whoami
parent
eb047e0bff
commit
4de2bd03b1
|
@ -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 }
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue