eu tenho um<select> Elemento HTML com 3 opções e um<p> elemento. No<p> Eu quero imprimir o índice do item selecionado no momento<select>. Por exemplo. se eu selecionar a primeira opção, ela deverá imprimir 0, se eu selecionar a segunda opção, ela deverá imprimir 1 e assim por diante. Como procedo do código mínimo fornecido abaixo?

import Html as H exposing (Html)
import Maybe
import Signal as S exposing (Address, (<~))

type alias Model = { selected : Maybe Int }
model = { selected = Nothing }

type Action = NoOp | Select Int
update action model =
  case action of
    NoOp -> model
    Select n -> { model | selected <- Just n }

view address model =
  H.div []
     [ H.select [] [ H.option [] [ H.text "0" ]
                   , H.option [] [ H.text "1" ]
                   , H.option [] [ H.text "2" ]
                   ]
     , H.p [] [ H.text <| Maybe.withDefault ""
                   <| Maybe.map toString model.selected ]
     ]

actions = Signal.mailbox NoOp
main = view actions.address <~ S.foldp update model actions.signal