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