1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-18 01:57:02 +00:00

ui: Add session update logic into Session

This commit is contained in:
James Hillyerd
2018-11-23 13:57:42 -08:00
parent e71377f966
commit 0f9585a52b
3 changed files with 57 additions and 46 deletions

View File

@@ -224,20 +224,12 @@ changeRouteTo route model =
updateSession : ( Model, Cmd Msg, Session.Msg ) -> ( Model, Cmd Msg )
updateSession ( model, cmd, sessionMsg ) =
let
session =
( session, newCmd ) =
Session.update sessionMsg model.session
newModel =
{ model | session = session }
in
if session.persistent == model.session.persistent then
-- No change
( newModel, cmd )
else
( newModel
, Cmd.batch [ cmd, Ports.storeSession session.persistent ]
)
( { model | session = session }
, Cmd.batch [ newCmd, cmd ]
)
{-| Map page updates to Main Model and Msg types.