import Brwoser.Dom exposing (Viewport)
import Time exposing (Posix)
Login { loginForm : LoginForm }
{ viewport : Maybe Viewport
| Ready ( Page , Config )
update : Msg -> Model -> (Model,Cmd Msg)
UpdatedViewport viewport ->
{m | viewport = Just viewport}
, { config | viewport = viewport}
{m | viewport = Just time}
, { config | time = time}