@@ -78,24 +78,24 @@ newPage
7878 . Coercible x (Browser |+| BrowserContext)
7979 => Coercible o NewpageOptions
8080 => x -> o -> Aff Page
81−newPage sth opts =
82− affCall "newPage" typeInfo sth opts
81+newPage =
82+ affCall "newPage" typeInfo
8383 where typeInfo _ = newPage
8484
8585goForward
8686 :: forall o
8787 . Coercible o GoOptions
8888 => Page -> o -> Aff (Null |+| Response)
89−goForward page opts =
90− affCall "goForward" typeInfo page opts
89+goForward =
90+ affCall "goForward" typeInfo
9191 where typeInfo _ = goForward
9292
9393goBack
9494 :: forall o
9595 . Coercible o GoOptions
9696 => Page -> o -> Aff (Null |+| Response)
97−goBack page opts =
98− affCall "goBack" typeInfo page opts
97+goBack =
98+ affCall "goBack" typeInfo
9999 where typeInfo _ = goBack
100100
101101goto
@@ -103,8 +103,8 @@ goto
103103 . Coercible x (Page |+| Frame)
104104 => Coercible o GotoOptions
105105 => x -> URL -> o -> Aff (Null |+| Response)
106−goto x url' opts =
107− affCall "goto" typeInfo x url' opts
106+goto =
107+ affCall "goto" typeInfo
108108 where typeInfo _ = goto
109109
110110type Cookie =
@@ -117,27 +117,24 @@ addCookies
117117 :: BrowserContext
118118 -> Array Cookie
119119 -> Aff Unit
120−addCookies bc cookies =
121− affCall "addCookies" typeInfo bc cookies
122− where typeInfo _ = addCookies
120+addCookies =
121+ affCall "addCookies" \_ -> addCookies
123122
124123hover
125124 :: forall x o
126125 . Coercible x (Page |+| Frame |+| ElementHandle)
127126 => Coercible o HoverOptions
128127 => x -> o -> Aff Unit
129−hover sth opts =
130− affCall "hover" typeInfo sth opts
131− where typeInfo _ = hover :: x -> o -> Aff Unit
128+hover =
129+ affCall "hover" \_ -> hover
132130
133131innerHTML
134132 :: forall x o
135133 . Coercible x (Page |+| Frame |+| ElementHandle)
136134 => Coercible o InnerHTMLOptions
137135 => x -> Selector -> o -> Aff String
138−innerHTML x selector opts =
139− affCall "innerHTML" typeInfo x selector opts
140− where typeInfo _ = innerHTML
136+innerHTML =
137+ affCall "innerHTML" \_ -> innerHTML
141138
142139innerText
143140 :: forall x o
@@ -147,9 +144,8 @@ innerText
147144 -> Selector
148145 -> o
149146 -> Aff String
150−innerText x sel opts =
151− affCall "innerText" typeInfo x sel opts
152− where typeInfo _ = innerText :: x -> Selector -> o -> Aff String
147+innerText =
148+ affCall "innerText" \_ -> innerText
153149
154150isClosed :: Page -> Effect Boolean
155151isClosed = effCall "isClosed" \_ -> isClosed
@@ -168,44 +164,39 @@ query
168164 :: forall x
169165 . Coercible x (ElementHandle |+| Page |+| Frame)
170166 => x -> Selector -> Aff ElementHandle
171−query x =
172− affCall "$" typeInfo x
173− where typeInfo _ = query :: x -> Selector -> Aff ElementHandle
167+query =
168+ affCall "$" \_ -> query
174169
175170-- | `sth.$$(selector)`
176171queryMany
177172 :: forall x
178173 . Coercible x (ElementHandle |+| Page |+| Frame)
179174 => x -> Selector -> Aff (Array ElementHandle)
180−queryMany sth =
181− affCall "$$" typeInfo sth
182− where typeInfo _ = queryMany :: x -> Selector -> Aff (Array ElementHandle)
175+queryMany =
176+ affCall "$$" \_ -> queryMany
183177
184178screenshot
185179 :: forall x o
186180 . Coercible x (ElementHandle |+| Page)
187181 => Coercible o ScreenshotOptions
188182 => x -> o -> Aff Buffer
189−screenshot x o =
190− affCall "screenshot" typeInfo x o
191− where typeInfo _ = screenshot
183+screenshot =
184+ affCall "screenshot" \_ -> screenshot
192185
193186textContent
194187 :: forall x
195188 . Coercible x (Page |+| Frame |+| ElementHandle)
196189 => x -> Selector -> Aff (Null |+| String)
197−textContent x =
198− affCall "textContent" typeInfo x
199− where typeInfo _ = textContent
190+textContent =
191+ affCall "textContent" \_ -> textContent
200192
201193url
202194 :: forall x
203195 . Coercible x (Page |+| Frame |+| Download |+| Request |+| Response |+| Worker)
204196 => x
205197 -> Effect URL
206−url x =
207− effCall "url" typeInfo x
208− where typeInfo _ = url
198+url =
199+ effCall "url" \_ -> url
209200
210201addInitScript
211202 :: forall x o
@@ -214,14 +205,12 @@ addInitScript
214205 => x
215206 -> o
216207 -> Aff Unit
217−addInitScript x =
218− affCall "addInitScript" typeInfo x
219− where typeInfo _ = addInitScript
208+addInitScript =
209+ affCall "addInitScript" \_ -> addInitScript
220210
221211clearCookies :: BrowserContext -> Aff Unit
222−clearCookies x =
223− affCall "clearCookies" typeInfo x
224− where typeInfo _ = clearCookies
212+clearCookies =
213+ affCall "clearCookies" \_ -> clearCookies
225214
226215click
227216 :: forall x o
@@ -231,18 +220,16 @@ click
231220 -> Selector
232221 -> o
233222 -> Aff Unit
234−click x s =
235− affCall "click" typeInfo x s
236− where typeInfo _ = click
223+click =
224+ affCall "click" \_ -> click
237225
238226content
239227 :: forall x
240228 . Coercible x (Page |+| Frame)
241229 => x
242230 -> Aff String
243−content x =
244− affCall "content" typeInfo x
245− where typeInfo _ = content
231+content =
232+ affCall "content" \_ -> content
246233
247234dblclick
248235 :: forall x o
@@ -252,9 +239,8 @@ dblclick
252239 -> Selector
253240 -> o
254241 -> Aff Unit
255−dblclick x s o =
256− affCall "dblclick" typeInfo x s o
257− where typeInfo _ = dblclick
242+dblclick =
243+ affCall "dblclick" \_ -> dblclick
258244
259245evaluate
260246 :: forall x
@@ -263,9 +249,8 @@ evaluate
263249 -> String
264250 -- ^ Function to be evaluated in browser context
265251 -> Aff Foreign
266−evaluate x s =
267− affCall "evaluate" typeInfo x s
268− where typeInfo _ = evaluate
252+evaluate =
253+ affCall "evaluate" \_ -> evaluate
269254
270255evaluateHandle
271256 :: forall x
@@ -274,9 +259,8 @@ evaluateHandle
274259 -> String
275260 -- ^ Function to be evaluated in browser context
276261 -> Aff JSHandle
277−evaluateHandle x s =
278− affCall "evaluateHandle" typeInfo x s
279− where typeInfo _ = evaluateHandle
262+evaluateHandle =
263+ affCall "evaluateHandle" \_ -> evaluateHandle
280264
281265waitForNavigation
282266 :: forall x o
@@ -285,6 +269,5 @@ waitForNavigation
285269 => x
286270 -> o
287271 -> Aff (Null |+| Response)
288−waitForNavigation x s =
289− affCall "waitForNavigation" typeInfo x s
290− where typeInfo _ = waitForNavigation
272+waitForNavigation =
273+ affCall "waitForNavigation" \_ -> waitForNavigation