Push /send-message, /set-account-data, /sync and /sync to spec versions 1.7 and 1.8
parent
8816f0e837
commit
f5f5c14e10
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue