/
Dur.purs
27 lines (19 loc) · 870 Bytes
/
Dur.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
module Deku.DOM.Attr.Dur where
import Prelude
import Deku.DOM.Elt.Set (Set_)
import Deku.DOM.Elt.AnimateTransform (AnimateTransform_)
import Deku.DOM.Elt.AnimateMotion (AnimateMotion_)
import Deku.DOM.Elt.Animate (Animate_)
import Deku.Attribute (class Attr, prop', unsafeAttribute, unset')
data Dur = Dur
instance Attr Animate_ Dur String where
attr Dur value = unsafeAttribute { key: "dur", value: prop' value }
instance Attr AnimateMotion_ Dur String where
attr Dur value = unsafeAttribute { key: "dur", value: prop' value }
instance Attr AnimateTransform_ Dur String where
attr Dur value = unsafeAttribute { key: "dur", value: prop' value }
instance Attr Set_ Dur String where
attr Dur value = unsafeAttribute { key: "dur", value: prop' value }
instance Attr everything Dur Unit where
attr Dur _ = unsafeAttribute
{ key: "dur", value: unset' }