elm-format
parent
31817ed545
commit
1736679e0f
|
@ -277,16 +277,15 @@ update roomUpdate startRoom =
|
||||||
|
|
||||||
Optional (Just u) ->
|
Optional (Just u) ->
|
||||||
Recursion.recurse u
|
Recursion.recurse u
|
||||||
|
|
||||||
Optional Nothing ->
|
Optional Nothing ->
|
||||||
Recursion.base identity
|
Recursion.base identity
|
||||||
|
|
||||||
SetAccountData key value ->
|
SetAccountData key value ->
|
||||||
Recursion.base (setAccountData key value)
|
Recursion.base (setAccountData key value)
|
||||||
|
|
||||||
SetEphemeral eph ->
|
SetEphemeral eph ->
|
||||||
Recursion.base (\room -> { room | ephemeral = eph })
|
Recursion.base (\room -> { room | ephemeral = eph })
|
||||||
)
|
)
|
||||||
roomUpdate
|
roomUpdate
|
||||||
startRoom
|
startRoom
|
||||||
|
|
||||||
|
|
|
@ -176,10 +176,10 @@ update vaultUpdate startVault =
|
||||||
|
|
||||||
Optional (Just u) ->
|
Optional (Just u) ->
|
||||||
Recursion.recurse u
|
Recursion.recurse u
|
||||||
|
|
||||||
Optional Nothing ->
|
Optional Nothing ->
|
||||||
Recursion.base identity
|
Recursion.base identity
|
||||||
|
|
||||||
SetAccountData key value ->
|
SetAccountData key value ->
|
||||||
Recursion.base (setAccountData key value)
|
Recursion.base (setAccountData key value)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue