VY
Size: a a a
R:
VY
VY
ЗП
foldr f false можно как-то foldMapЗП
anyR:
type HTMLelement r i p = Array (IProp r i) → Array (HTML p i) → HTML p i
-- | Creates an extendable HTML element.
element
∷ ∀ r p i
. HTMLelement r i p -- element (e.g. HH.div)
→ Array ClassName -- classes
→ Array (IProp r i) -- attrs
→ Array (HTML p i) -- children
→ HTML p i
element elem classes attrs =
elem $ [ HP.classes classes ] <&> attrs
tyled :: forall r p i
. HTMLElement r i p
-> Array (IProp r i)
-> Array (HTML p i)
-> { id :: String
, element :: HTML p i
}
styled elem attrs childs =
{ id: ""
, element: elem attrs childs
}VY
R:
R:
type HTMLelement r i p = Array (HH.IProp r i) -> Array (HH.HTML p i) -> HH.HTML p i
divStyled :: forall r p i. HTMLelement r p i
divStyled = HH.div
VY
r -> HTMLdivVY
divStyled :: forall p i. Array (HH.IProp HTMLdiv i) -> Array (HTML p i) -> HTML p i
divStyled = HH.div
R:
divStyled :: forall p i. Array (HH.IProp HTMLdiv i) -> Array (HTML p i) -> HTML p i
divStyled = HH.div
VY
divStyled :: forall p i. HH.Node HTMLdiv p i
divStyled = HH.div