bla.elm

-- Read more about this program in the official Elm guide:
-- https://guide.elm-lang.org/architecture/user_input/buttons.html

import Html exposing (beginnerProgram, div, button, text, audio)
import Html.Events exposing (onClick)
import Html.Attributes exposing (src, autoplay)


main =
  beginnerProgram { model = model, view = view, update = update }
  

-- MODEL

model = "huhu"


-- UPDATE

type Msg = Increment | Decrement


update msg model =
  case msg of
    Increment ->
      "hehe"

    Decrement ->
      "https://1042.ch/42/ganwell/music/Fly%20Away.mp3"
      

-- VIEW

view model =
  div []
    [ button [ onClick Decrement ] [ text "-" ]
    , div [] [ audio [src model, autoplay True] [] ]
    , button [ onClick Increment ] [ text "+" ]
    ]