Reorder Envelope functions alphabetically
parent
5bd95699d2
commit
d9d5760928
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue