Bram
/
elm-matrix-sdk-alpha
mirror of https://github.com/noordstar/elm-matrix-sdk-alpha
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Push /send-message, /set-account-data, /sync and /sync to spec versions 1.7 and 1.8

main
Bram van den Heuvel 2023-09-22 16:18:15 +02:00
parent 8816f0e837
commit f5f5c14e10
4 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Internal/Api/SendMessageEvent/Main.elm
View File

@ -32,6 +32,8 @@ sendMessageEvent context input =
|> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.4"
|> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.5"
|> VC.sameForVersion "v1.6" |> VC.sameForVersion "v1.6"
|> VC.sameForVersion "v1.7"
|> VC.sameForVersion "v1.8"
|> VC.mostRecentFromVersionList (Context.getVersions context) |> VC.mostRecentFromVersionList (Context.getVersions context)
|> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion)
|> (|>) input |> (|>) input

2
src/Internal/Api/SetAccountData/Main.elm
View File

@ -32,6 +32,8 @@ setAccountData context input =
|> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.4"
|> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.5"
|> VC.sameForVersion "v1.6" |> VC.sameForVersion "v1.6"
|> VC.sameForVersion "v1.7"
|> VC.sameForVersion "v1.8"
|> VC.mostRecentFromVersionList (Context.getVersions context) |> VC.mostRecentFromVersionList (Context.getVersions context)
|> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion)
|> (|>) input |> (|>) input

2
src/Internal/Api/Sync/Main.elm
View File

@ -25,6 +25,8 @@ sync context input =
} }
|> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.5"
|> VC.sameForVersion "v1.6" |> VC.sameForVersion "v1.6"
|> VC.sameForVersion "v1.7"
|> VC.sameForVersion "v1.8"
|> VC.mostRecentFromVersionList (Context.getVersions context) |> VC.mostRecentFromVersionList (Context.getVersions context)
|> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion)
|> (|>) input |> (|>) input

2
src/Internal/Api/WhoAmI/Main.elm
View File

@ -35,6 +35,8 @@ whoAmI context input =
|> VC.sameForVersion "v1.4" |> VC.sameForVersion "v1.4"
|> VC.sameForVersion "v1.5" |> VC.sameForVersion "v1.5"
|> VC.sameForVersion "v1.6" |> VC.sameForVersion "v1.6"
|> VC.sameForVersion "v1.7"
|> VC.sameForVersion "v1.8"
|> VC.mostRecentFromVersionList (Context.getVersions context) |> VC.mostRecentFromVersionList (Context.getVersions context)
|> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion) |> Maybe.withDefault (always <| always <| Task.fail X.UnsupportedSpecVersion)
|> (|>) input |> (|>) input