From f5f5c14e10136f20b5b8204950f7f98aeac362b3 Mon Sep 17 00:00:00 2001 From: Bram van den Heuvel Date: Fri, 22 Sep 2023 16:18:15 +0200 Subject: [PATCH] Push /send-message, /set-account-data, /sync and /sync to spec versions 1.7 and 1.8 --- src/Internal/Api/SendMessageEvent/Main.elm | 2 ++ src/Internal/Api/SetAccountData/Main.elm | 2 ++ src/Internal/Api/Sync/Main.elm | 2 ++ src/Internal/Api/WhoAmI/Main.elm | 2 ++ 4 files changed, 8 insertions(+) diff --git a/src/Internal/Api/SendMessageEvent/Main.elm b/src/Internal/Api/SendMessageEvent/Main.elm index 9c6b68e..1c78391 100644 --- a/src/Internal/Api/SendMessageEvent/Main.elm +++ b/src/Internal/Api/SendMessageEvent/Main.elm @@ -32,6 +32,8 @@ sendMessageEvent context input = |> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.6" + |> VC.sameForVersion "v1.7" + |> VC.sameForVersion "v1.8" |> VC.mostRecentFromVersionList (Context.getVersions context) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> (|>) input diff --git a/src/Internal/Api/SetAccountData/Main.elm b/src/Internal/Api/SetAccountData/Main.elm index 02b8e0b..005abd1 100644 --- a/src/Internal/Api/SetAccountData/Main.elm +++ b/src/Internal/Api/SetAccountData/Main.elm @@ -32,6 +32,8 @@ setAccountData context input = |> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.6" + |> VC.sameForVersion "v1.7" + |> VC.sameForVersion "v1.8" |> VC.mostRecentFromVersionList (Context.getVersions context) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> (|>) input diff --git a/src/Internal/Api/Sync/Main.elm b/src/Internal/Api/Sync/Main.elm index 3fa1c8e..65c0361 100644 --- a/src/Internal/Api/Sync/Main.elm +++ b/src/Internal/Api/Sync/Main.elm @@ -25,6 +25,8 @@ sync context input = } |> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.6" + |> VC.sameForVersion "v1.7" + |> VC.sameForVersion "v1.8" |> VC.mostRecentFromVersionList (Context.getVersions context) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> (|>) input diff --git a/src/Internal/Api/WhoAmI/Main.elm b/src/Internal/Api/WhoAmI/Main.elm index 0f65309..8298429 100644 --- a/src/Internal/Api/WhoAmI/Main.elm +++ b/src/Internal/Api/WhoAmI/Main.elm @@ -35,6 +35,8 @@ whoAmI context input = |> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.6" + |> VC.sameForVersion "v1.7" + |> VC.sameForVersion "v1.8" |> VC.mostRecentFromVersionList (Context.getVersions context) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> (|>) input