From 4de2bd03b17fc1c42078395badec2f015c55cd7b Mon Sep 17 00:00:00 2001 From: Bram van den Heuvel Date: Fri, 24 Mar 2023 15:16:40 +0100 Subject: [PATCH] Add VaultUpdate case for banning + whoami --- src/Internal/Vault.elm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/Internal/Vault.elm b/src/Internal/Vault.elm index cb53c89..4c648ea 100644 --- a/src/Internal/Vault.elm +++ b/src/Internal/Vault.elm @@ -112,6 +112,10 @@ updateWith vaultUpdate ((Vault ({ cred, context } as data)) as vault) = MultipleUpdates updates -> List.foldl updateWith vault updates + -- TODO + BanUser input output -> + vault + GetEvent input output -> case getRoomById input.roomId vault of Just room -> @@ -290,6 +294,10 @@ updateWith vaultUpdate ((Vault ({ cred, context } as data)) as vault) = UpdateAccessToken token -> Vault { data | context = Credentials.addToken token context } + -- TODO + UpdateRawAccessToken token output -> + vault + UpdateVersions versions -> Vault { data | context = Credentials.addVersions versions context }