type alias Model =
  { state : Combo.State
  }

type Msg
  = OnState Combo.State


data : List String
data =
  [ ... ]


view : Model -> Html Msg
view model =
  Combo.view (Combo.config OnState data) model.state


update : Msg -> Model -> Model
update msg model =
  case msg of
    OnState s ->
       { model | state = s }