1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-19 18:47:03 +00:00

ui: Add refresh button to mailbox page (#179)

`socketConnected` is not implemented, but will be used when we implement #92
This commit is contained in:
James Hillyerd
2020-09-21 20:11:32 -07:00
committed by GitHub
parent 4648d8e593
commit 407ae87a3b
2 changed files with 103 additions and 41 deletions

View File

@@ -1,6 +1,7 @@
module Effect exposing
( Effect
, addRecent
, append
, batch
, deleteMessage
, disableRouting
@@ -68,6 +69,13 @@ type SessionEffect
| RoutingEnable
{-| Appends a new effect to a model/effect tuple.
-}
append : Effect msg -> ( a, Effect msg ) -> ( a, Effect msg )
append e ( model, effect ) =
( model, batch [ effect, e ] )
{-| Packs a List of Effects into a single Effect
-}
batch : List (Effect msg) -> Effect msg