Tiling-Chat/Main.elm at master · themaxhero/Tiling-Chat · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
module Main exposing (init, main)
import Browser
import Element exposing (text)
import Model exposing (Model, initialModel)

type alias Flags = {}

type alias UpdateOutput =
  (Model, Cmd Msg)

init : Flags -> (Model, Cmd Msg)
init _ =
  (initialModel, Cmd.none)

main : Program Flags Model Msg
main =
  Browser.element
    { init = init
    , view = view >> Element.layout attr
    , update = update
    , subscriptions = subscriptions
    }

update : Msg -> Model -> UpdateOutput
update msg model =
  (model, Cmd.none)

attr : List (Attribute Msg)
attr =
  []

view : Model -> Element Msg
view _ =
  text ""

subscriptions : Model -> Sub Msg
subscriptions _ =
  Sub.none