gistfile1.txt

module ArchitechedHello exposing (..)

import Browser exposing (..)
import Html exposing (..)
import Html.Attributes exposing (style)

main =
  Browser.sandbox { model = model, view = view, update = update}

type alias Model =
  {text: String}

model : Model
model =
  {text = "Hello world"}

type Msg
  = Text String

update : Msg -> Model -> Model
update msg model =
  case msg of
    Text txt ->
      {model | text = model.text ++ "!"}

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