module Frontend.Dom where

-- import Prelude

import Halogen.HTML as HH
import Frontend.Util (classes)


card :: forall w i. Array String -> Array (HH.HTML w i) -> Array (HH.HTML w i) -> HH.HTML w i
card classes' header body =               
  HH.div [ classes classes' ]
    [ HH.div [ classes ["card", "shadow", "mb-4"] ]
      [ HH.div [ classes ["card-header", "card-header", "py-3", "d-flex", "flex-row", "align-items-center", "justify-content-between"] ]
        [ HH.h6 [ classes ["m-0", "font-weight-bold", "text-primary"] ] 
          header
        ]
      , HH.div [ classes ["card-body"] ]
        body
      ]
    ]