module Frontend.Component.Zones where

import Prelude

import Data.Maybe (Maybe(..))
import Effect.Aff.Class (class MonadAff)
import Frontend.Dom (card)
import Frontend.Types (Config(..))
import Frontend.Util (classes)
import Halogen as H
import Halogen.HTML as HH


type State =
  { config :: Config
  }

data Action
  = Initialize

type Input = { config :: Config }


component :: forall query output m. MonadAff m => H.Component HH.HTML query Input output m
component = H.mkComponent
  { initialState: identity
  , render
  , eval: H.mkEval H.defaultEval
    { initialize = Just Initialize
    }
  }


render :: forall s m. MonadAff m => State -> H.ComponentHTML Action s m
render { config: Config config } =
  HH.div [ classes ["row"] ]
    [ card ["col-lg-12"]
      [ HH.text "Zones" ]
      [ HH.span_ [ HH.text $ "ToDo" ]
      ]
    ]