@@ -1,18 +1,20 @@
11module RadixUI.Avatar where
22
33import Prelude
4−import React.Basic (JSX, ReactComponent)
4+
5+import Beta.DOM (class IsJSX)
6+import Beta.DOM (unsafeWithChildren)
7+import Beta.DOM.Internal (CSS)
8+import Beta.DOM.Internal (class IsJSX)
9+import Data.Time.Duration (Milliseconds)
510import Data.Undefined.NoProblem (Opt, pseudoMap)
611import Data.Undefined.NoProblem.Closed (class Coerce, coerce)
7−import React.Basic (element) as React
8−import Data.Time.Duration (Milliseconds)
912import Effect (Effect)
10−import Beta.DOM.Internal (CSS)
11−import Beta.DOM (class IsJSX)
12−import Effect.Uncurried (mkEffectFn1)
13+import Effect.Uncurried (EffectFn1, mkEffectFn1)
1314import Partial.Unsafe (unsafeCrashWith)
14−import Beta.DOM (unsafeWithChildren)
15−import Beta.DOM.Internal (class IsJSX)
15+import React.Basic (JSX, ReactComponent)
16+import React.Basic (element) as React
17+import Unsafe.Coerce (unsafeCoerce)
1618
1719foreign import rootImpl :: forall r. ReactComponent { | r }
1820foreign import imageImpl :: forall r. ReactComponent { | r }
@@ -54,8 +56,9 @@ type ImageProps =
5456image :: forall p. Coerce p ImageProps => p -> JSX
5557image props' = do
5658 let props = coerce props' :: ImageProps
57− React.element imageImpl $ props
58− { onLoadingStatusChange = pseudoMap (mkEffectFn1 <<< (toImageLoadingStatus >>> _)) props.onLoadingStatusChange }
59+ React.element imageImpl $ unsafeCoerce $ props
60+ { onLoadingStatusChange = pseudoMap (mkEffectFn1 <<< (toImageLoadingStatus >>> _)) props.onLoadingStatusChange :: Opt (EffectFn1 String Unit)
61+ }
5962
6063
6164type FallbackProps =