elm-format
parent
eaa7bc3444
commit
045b67d77d
|
@ -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.SendMessageEvent.V1.SpecObjects as SO1
|
||||
|
@ -16,7 +16,9 @@ type alias SendMessageEventInputV1 =
|
|||
, transactionId : String
|
||||
}
|
||||
|
||||
type alias SendMessageEventOutputV1 = Task X.Error SO1.EventResponse
|
||||
|
||||
type alias SendMessageEventOutputV1 =
|
||||
Task X.Error SO1.EventResponse
|
||||
|
||||
|
||||
sendMessageEventV1 : SendMessageEventInputV1 -> SendMessageEventOutputV1
|
||||
|
|
|
@ -3,6 +3,7 @@ module Internal.Api.SendMessageEvent.Main exposing (..)
|
|||
import Internal.Api.SendMessageEvent.Api as Api
|
||||
import Internal.Tools.VersionControl as VC
|
||||
|
||||
|
||||
sendMessageEvent : List String -> Maybe (SendMessageEventInput -> SendMessageEventOutput)
|
||||
sendMessageEvent versions =
|
||||
VC.withBottomLayer
|
||||
|
|
|
@ -154,6 +154,7 @@ mostRecentFromVersionList versionList ((VersionControl { order }) as vc) =
|
|||
|> List.filterMap (\v -> fromVersion v vc)
|
||||
|> List.head
|
||||
|
||||
|
||||
{-| 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
|
||||
identical for this version.
|
||||
|
|
Loading…
Reference in New Issue