--

-- Read how it works:

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

--

​

import Browser

import Html exposing (..)

import Html.Attributes exposing (..)

import Html.Events exposing (onInput)

​

​

​

-- MAIN

​

​

main =

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

​

​

​

-- MODEL

​

​

type alias Model =

  { name : String

  , password : String

  , passwordAgain : String

  }

​

​

init : Model

init =

  Model "" "" ""

​

​

​

-- UPDATE

​

​

type Msg

  = Name String

  | Password String

  | PasswordAgain String

​

​

update : Msg -> Model -> Model

update msg model =

  case msg of