在Haskell Miso中读取单选按钮值

import Miso
import Miso.String (MisoString)

data RadioButtonValue = Option1 | Option2 | Option3

view :: Model -> View Action
view model = div_ []
  [ radio Option1 "Option 1" model RadioButtonValue
  , radio Option2 "Option 2" model RadioButtonValue
  , radio Option3 "Option 3" model RadioButtonValue
  ]

update :: Action -> Model -> Effect Action Model
update (RadioButtonValue value) model = noEff model { selectedOption = value }

main :: IO ()
main = startApp App { initialAction = NoOp, model = initialModel, update = update, view = view, subs = [], events = defaultEvents, mountPoint = Nothing }