@@ -39,12 +39,15 @@ component = mkForwardRefComponent "Drip" \(props :: Props) propsRef -> React.do
40 useEffectAlways do
40 useEffectAlways do
41 nʔ <- React.readRefMaybe ref
41 nʔ <- React.readRefMaybe ref
42− nʔ # foldMap \n -> do
42+ nʔ # case _ of
43− let target = toEventTarget n
44+ let target = toEventTarget n
44− let et = EventType "animationend"
45+ let et = EventType "animationend"
45− listener <- eventListener (const props.onComplete)
46+ listener <- eventListener (const props.onComplete)
46− addEventListener et listener false target
47+ addEventListener et listener false target
47− pure $ removeEventListener et listener false target
48+ pure $ removeEventListener et listener false target
49 pure $ guard props.visible do
52 pure $ guard props.visible do