ryantrinkle/react
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use FromJSVal for props

Browse Source
This commit is contained in:
Ryan Trinkle 2023-07-04 13:01:15 -04:00
parent 191ae58b73
commit e4b862f1b5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/React/Component.hs
View File

@ -8,13 +8,16 @@ import React.JSaddle
import React.Types import React.Types
--TODO: The Hook section shouldn't have any control flow to it; probably it also shouldn't depend on props except in specific ways --TODO: The Hook section shouldn't have any control flow to it; probably it also shouldn't depend on props except in specific ways
component :: (JSVal -> Hook Element) -> ReaderT React JSM (Component JSVal ()) component :: FromJSVal props => (props -> Hook Element) -> ReaderT React JSM (Component props ())
component hook = do component hook = do
react <- ask react <- ask
f <- lift $ function' $ \_ _ args -> flip runReaderT react $ do f <- lift $ function' $ \_ _ args -> flip runReaderT react $ do
let props = case args of let propsVal = case args of
[] -> jsUndefined [] -> jsUndefined
arg0 : _ -> arg0 arg0 : _ -> arg0
props <- liftJSM $ fromJSVal propsVal >>= \case
Nothing -> fail "Invalid props"
Just props -> pure props
e <- unHook $ hook props e <- unHook $ hook props
unElement e unElement e
pure $ Component f pure $ Component f