Arnaud Chenyensu |||

A simple initial file in Elm

  
    import Browser
    import Html exposing (Html, div, text)

    main =
      Browser.element
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        }

    type alias Model = String

    type Msg
      = None

    init : () -> (Model, Cmd Msg)
    init _ =
      ("It's working", Cmd.none)

    update : Msg -> Model -> (Model, Cmd Msg)
    update msg model =
      case msg of
        None ->
          (model, Cmd.none)

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

    view : Model -> Html Msg
    view model =
      div [] [ text model ]