@@ -1,18 +1,20 @@
1module RadixUI.Avatar where
1module RadixUI.Avatar where
3import Prelude
3import 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)
5import Data.Undefined.NoProblem (Opt, pseudoMap)
10import Data.Undefined.NoProblem (Opt, pseudoMap)
6import Data.Undefined.NoProblem.Closed (class Coerce, coerce)
11import Data.Undefined.NoProblem.Closed (class Coerce, coerce)
7−import React.Basic (element) as React
8−import Data.Time.Duration (Milliseconds)
9import Effect (Effect)
12import 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)
13import Partial.Unsafe (unsafeCrashWith)
14import Partial.Unsafe (unsafeCrashWith)
14−import Beta.DOM (unsafeWithChildren)
15+import React.Basic (JSX, ReactComponent)
15−import Beta.DOM.Internal (class IsJSX)
16+import React.Basic (element) as React
17+import Unsafe.Coerce (unsafeCoerce)
17foreign import rootImpl :: forall r. ReactComponent { | r }
19foreign import rootImpl :: forall r. ReactComponent { | r }
18foreign import imageImpl :: forall r. ReactComponent { | r }
20foreign import imageImpl :: forall r. ReactComponent { | r }
@@ -54,8 +56,9 @@ type ImageProps =
54image :: forall p. Coerce p ImageProps => p -> JSX
56image :: forall p. Coerce p ImageProps => p -> JSX
55image props' = do
57image props' = do
56 let props = coerce props' :: ImageProps
58 let props = coerce props' :: ImageProps
57− React.element imageImpl $ props
59+ React.element imageImpl $ unsafeCoerce $ props
58− { onLoadingStatusChange = pseudoMap (mkEffectFn1 <<< (toImageLoadingStatus >>> _)) props.onLoadingStatusChange }
60+ { onLoadingStatusChange = pseudoMap (mkEffectFn1 <<< (toImageLoadingStatus >>> _)) props.onLoadingStatusChange :: Opt (EffectFn1 String Unit)
61type FallbackProps =
64type FallbackProps =