atomic-css-0.1.0: src/Web/Atomic/Attributes.hs

module Web.Atomic.Attributes
  ( Attributable (..)
  , class_
  , att
  , Name
  , AttValue
  , Attributes
  ) where

import Data.Map.Strict qualified as M
import Web.Atomic.Types


class_ :: (Attributable h) => AttValue -> Attributes h -> Attributes h
class_ cnew (Attributes m) =
  Attributes $ M.insertWith (\a b -> a <> " " <> b) "class" cnew m