@@ -59,7 +59,10 @@ module Component where
59
59
60
60
import Prelude
61
61
62
+ import Effect.Uncurried (mkEffectFn1)
63
+
62
64
import React as React
65
+ import React.SyntheticEvent as Event
63
66
64
67
import Clock as Clock
65
68
@@ -68,8 +71,8 @@ clock =
68
71
React.createElement Clock.clockComponent
69
72
{ format: "HH:mm:ss"
70
73
, className: "test-class-name"
71
- , onTick: React.handle $ \event -> do
72
- React .preventDefault event
74
+ , onTick: mkEffectFn1 $ \event -> do
75
+ Event .preventDefault event
73
76
-- etc.
74
77
pure unit
75
78
} []
@@ -90,7 +93,10 @@ module Clock
90
93
91
94
import Prelude
92
95
93
- import React (ReactClass, ReactElement, SyntheticEventHandlerContext, Children, createElement, handle)
96
+ import Effect (Effect)
97
+ import Effect.Uncurried (mkEffectFn1)
98
+
99
+ import React (ReactClass, ReactElement, Children, createElement)
94
100
import React.SyntheticEvent (SyntheticEvent)
95
101
import React.DOM.Props (Props, unsafeFromPropsArray, unsafeMkProps)
96
102
@@ -100,8 +106,8 @@ clockComponent props children = createElement clockComponent_ (unsafeFromPropsAr
100
106
format :: String -> Props
101
107
format = unsafeMkProps "format"
102
108
103
- onTick :: forall eff props state. (SyntheticEvent -> SyntheticEventHandlerContext eff props state Unit) -> Props
104
- onTick k = unsafeMkProps "onTick" (handle k)
109
+ onTick :: (SyntheticEvent -> Effect Unit) -> Props
110
+ onTick k = unsafeMkProps "onTick" (mkEffectFn1 k)
105
111
106
112
foreign import clockComponent_
107
113
:: ReactClass
@@ -117,6 +123,7 @@ module Component where
117
123
import Prelude
118
124
119
125
import React as React
126
+ import React.SyntheticEvent as Event
120
127
import React.DOM.Props as Props
121
128
122
129
import Clock as Clock
@@ -126,7 +133,7 @@ clock =
126
133
Clock.clockComponent
127
134
[ Clock.format "HH:mm:ss"
128
135
, Clock.onTick $ \event -> do
129
- React .preventDefault event
136
+ Event .preventDefault event
130
137
-- etc.
131
138
pure unit
132
139
, Props.className "test-class-name"
@@ -200,7 +207,7 @@ var orderedList = function (dictOrd) {
200
207
var component = function ($$this ) {
201
208
// ...
202
209
};
203
- return React .component ()(" OrderedList" )(component);
210
+ return React .component (React . reactComponentSpec ()() )(" OrderedList" )(component);
204
211
};
205
212
```
206
213
0 commit comments