initial commit

client/elm/Main.elm

@@ -0,0 +1,39 @@
+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
+