@@ -39,12 +39,15 @@ component = mkForwardRefComponent "Drip" \(props :: Props) propsRef -> React.do
3939
4040 useEffectAlways do
4141 nʔ <- React.readRefMaybe ref
42− nʔ # foldMap \n -> do
43− let target = toEventTarget n
44− let et = EventType "animationend"
45− listener <- eventListener (const props.onComplete)
46− addEventListener et listener false target
47− pure $ removeEventListener et listener false target
42+ nʔ # case _ of
43+ Just n -> do
44+ let target = toEventTarget n
45+ let et = EventType "animationend"
46+ listener <- eventListener (const props.onComplete)
47+ addEventListener et listener false target
48+ pure $ removeEventListener et listener false target
49+ Nothing ->
50+ pure (pure unit)
4851
4952 pure $ guard props.visible do
5053 R.div'