-----------------------------------------------------------------------------
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ExistentialQuantification  #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE RecordWildCards            #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE LambdaCase                 #-}
-----------------------------------------------------------------------------
module Miso.UI.Select
  ( -- ** Component
    select_
  ) where
-----------------------------------------------------------------------------
import           Miso
import qualified Miso.Html.Element as H
import qualified Miso.Html.Property as P
-----------------------------------------------------------------------------
select_ :: Component parent model action
select_ :: forall parent model action. Component parent model action
select_ = model
-> (action -> Effect parent model action)
-> (model -> View model action)
-> Component parent model action
forall model action parent.
model
-> (action -> Effect parent model action)
-> (model -> View model action)
-> Component parent model action
component model
forall a. HasCallStack => a
undefined action -> Effect parent model action
forall action parent model. action -> Effect parent model action
noop (View model action -> model -> View model action
forall a b. a -> b -> a
const View model action
forall model action. View model action
view_)
-----------------------------------------------------------------------------
view_ :: View model action
view_ :: forall model action. View model action
view_ = [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.select_
  [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"select w-[180px]" ]
  [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.optgroup_
      [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.label_ MisoString
"Fruits"
      ]
      [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.option_ []  [ View model action
"Apple" ]
      , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.option_ []  [ View model action
"Banana" ]
      , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.option_ []  [ View model action
"Blueberry" ]
      , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.option_ []  [ View model action
"Grapes" ]
      , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.option_ []  [ View model action
"Pineapple" ]
      ]
  ]