--

-- Read how it works:

--   https://guide.elm-lang.org/architecture/text_fields.html

--

​

import Browser

import Html exposing (Html, Attribute, div, input, text)

import Html.Attributes exposing (..)

import Html.Events exposing (onInput)

​

​

​

-- MAIN

​

​

main =

  Browser.sandbox { init = init, update = update, view = view }

​

​

​

-- MODEL

​

​

type alias Model =

  { content : String

  }

​

​

init : Model

init =

  { content = "" }

​

​

​

-- UPDATE

​

​

type Msg

  = Change String

​

​

update : Msg -> Model -> Model

update msg model =

  case msg of

    Change newContent ->

      { model | content = newContent }

​

​