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

elm-format

pull/1/head
Bram van den Heuvel 2023-02-17 11:10:03 +01:00
parent eaa7bc3444
commit 045b67d77d
3 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Internal/Api/SendMessageEvent/Api.elm
View File

@ -1,4 +1,4 @@
module Internal.Api.SendMessageEvent.Api exposing (sendMessageEventV1, sendMessageEventV2, SendMessageEventOutputV1, SendMessageEventInputV1) module Internal.Api.SendMessageEvent.Api exposing (SendMessageEventInputV1, SendMessageEventOutputV1, sendMessageEventV1, sendMessageEventV2)
import Internal.Api.Request as R import Internal.Api.Request as R
import Internal.Api.SendMessageEvent.V1.SpecObjects as SO1 import Internal.Api.SendMessageEvent.V1.SpecObjects as SO1
@ -16,7 +16,9 @@ type alias SendMessageEventInputV1 =
, transactionId : String , transactionId : String
} }
type alias SendMessageEventOutputV1 = Task X.Error SO1.EventResponse
type alias SendMessageEventOutputV1 =
Task X.Error SO1.EventResponse
sendMessageEventV1 : SendMessageEventInputV1 -> SendMessageEventOutputV1 sendMessageEventV1 : SendMessageEventInputV1 -> SendMessageEventOutputV1

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

@ -3,6 +3,7 @@ module Internal.Api.SendMessageEvent.Main exposing (..)
import Internal.Api.SendMessageEvent.Api as Api import Internal.Api.SendMessageEvent.Api as Api
import Internal.Tools.VersionControl as VC import Internal.Tools.VersionControl as VC
sendMessageEvent : List String -> Maybe (SendMessageEventInput -> SendMessageEventOutput) sendMessageEvent : List String -> Maybe (SendMessageEventInput -> SendMessageEventOutput)
sendMessageEvent versions = sendMessageEvent versions =
VC.withBottomLayer VC.withBottomLayer

1
src/Internal/Tools/VersionControl.elm
View File

@ -154,6 +154,7 @@ mostRecentFromVersionList versionList ((VersionControl { order }) as vc) =
|> List.filterMap (\v -> fromVersion v vc) |> List.filterMap (\v -> fromVersion v vc)
|> List.head |> List.head
{-| Sometimes, no changes are needed and a function works just the same as the one in the previous version. {-| Sometimes, no changes are needed and a function works just the same as the one in the previous version.
In that case, you can amend with a `sameForVersion` function to indicate that the spec is In that case, you can amend with a `sameForVersion` function to indicate that the spec is
identical for this version. identical for this version.