40 lines
654 B
Elm
40 lines
654 B
Elm
module Main exposing (main)
|
|
|
|
import Browser as B
|
|
import Html as H exposing (Html)
|
|
import Html.Attributes as HA
|
|
import Html.Events as HE
|
|
import Loading
|
|
|
|
|
|
main =
|
|
B.sandbox { init = init, update = update, view = view }
|
|
|
|
|
|
type Model
|
|
= LoadingMdl Loading.Model
|
|
|
|
|
|
type Msg
|
|
= LoadingMsg Loading.Msg
|
|
|
|
|
|
init : Model
|
|
init =
|
|
LoadingMdl Loading.init
|
|
|
|
|
|
view : Model -> Html Msg
|
|
view mdl =
|
|
case mdl of
|
|
LoadingMdl m ->
|
|
H.map LoadingMsg <| Loading.view m
|
|
|
|
|
|
update : Msg -> Model -> Model
|
|
update msg_ mdl_ =
|
|
case ( msg_, mdl_ ) of
|
|
( LoadingMsg msg, LoadingMdl mdl ) ->
|
|
LoadingMdl <| Loading.update msg mdl
|
|
|