DebuggerBug.elm

module Main exposing (main)

import Browser
import Html exposing (Html, text, button, div)
import Html.Events exposing (onClick)

-- Compile with --debug flag

type alias Model =
    Bool


initialModel : Model
initialModel =
    False


type Msg
    = Toggle


update : Msg -> Model -> Model
update msg model =
    not model


view : Model -> Html Msg
view model =
    if model then
        div [] [ text "Whoops" ]
    else
        div [] [ text "Hello", button [ onClick Toggle ] [ text "I should disappear when you click me" ] ]
    


main : Program () Model Msg
main =
    Browser.sandbox
        { init = initialModel
        , view = view
        , update = update
        }