Reorder Envelope functions alphabetically

2-transfer-tools
Bram 2023-12-18 17:20:43 +01:00
parent 5bd95699d2
commit d9d5760928
1 changed files with 20 additions and 20 deletions

View File

@ -227,26 +227,6 @@ mapContext f (Envelope data) =
} }
{-| Update the settings in the Envelope.
setDeviceName : String -> Envelope a -> Envelope a
setDeviceName name envelope =
mapSettings
(\settings ->
{ settings | deviceName = name }
)
envelope
-}
mapSettings : (Settings -> Settings) -> Envelope a -> Envelope a
mapSettings f (Envelope data) =
Envelope
{ content = data.content
, context = data.context
, settings = f data.settings
}
{-| Map the contents of a function, where the result is wrapped in a `List` {-| Map the contents of a function, where the result is wrapped in a `List`
type. This can be useful when you are mapping to a list of individual values type. This can be useful when you are mapping to a list of individual values
that you would all like to see enveloped. that you would all like to see enveloped.
@ -287,6 +267,26 @@ mapMaybe f =
map f >> toMaybe map f >> toMaybe
{-| Update the settings in the Envelope.
setDeviceName : String -> Envelope a -> Envelope a
setDeviceName name envelope =
mapSettings
(\settings ->
{ settings | deviceName = name }
)
envelope
-}
mapSettings : (Settings -> Settings) -> Envelope a -> Envelope a
mapSettings f (Envelope data) =
Envelope
{ content = data.content
, context = data.context
, settings = f data.settings
}
toList : Envelope (List a) -> List (Envelope a) toList : Envelope (List a) -> List (Envelope a)
toList (Envelope data) = toList (Envelope data) =
List.map List.map