miso-css-0.0.1: src/Miso/Css/Style/OrClass.hs

module Miso.Css.Style.OrClass where

import Miso.Css.Prelude
import Miso.Css.Segment
import Miso.Css.Style.AncestorConstraint ( AncestorConstraint )

-- | 'OrClass' describes all selector prefixes
-- possible for the last selector segment
data OrClass
       (p :: [[Seg]])
       (c :: Symbol)
  where
    TopOrClass :: KnownSymbol c => Proxy c -> OrClass '[] c
    AddAncestorBranch :: AncestorConstraint ac -> OrClass bs c -> OrClass (ac ': bs) c