data Props t = Props { items :: [t], render :: t -> Elem }
component :: Props t -> Elem
component _ = Elem ""
type FC p = p -> Elem
jsx :: FC p -> p -> Elem
jsx f p = f p
main
= print $ jsx component
(Props
["one", "two"] (\item
-> Elem
(show (length item
))))
ZGF0YSBFbGVtID0gRWxlbSBTdHJpbmcgey0gfCAuLi4gLX0gZGVyaXZpbmcgKEVxLCBTaG93KQoKZGF0YSBQcm9wcyB0ID0gUHJvcHMgeyBpdGVtcyA6OiBbdF0sIHJlbmRlciA6OiB0IC0+IEVsZW0gfQoKY29tcG9uZW50IDo6IFByb3BzIHQgLT4gRWxlbQpjb21wb25lbnQgXyA9IEVsZW0gIiIKCnR5cGUgRkMgcCA9IHAgLT4gRWxlbQoKanN4IDo6IEZDIHAgLT4gcCAtPiBFbGVtCmpzeCBmIHAgPSBmIHAKCm1haW4gPSBwcmludCAkIGpzeCBjb21wb25lbnQgKFByb3BzIFsib25lIiwgInR3byJdIChcaXRlbSAtPiBFbGVtIChzaG93IChsZW5ndGggaXRlbSkpKSk=