orion/purescript-puppeteer
orion/purescript-puppeteer
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: createCDPSession

Browse Source
This commit is contained in:
orion 2023-10-08 12:10:00 -05:00
parent 500b6f1f7f
commit bf075f9628
Signed by: orion
GPG Key ID: 6D4165AE4C928719
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Puppeteer.Page.js
View File

@ -1,4 +1,4 @@
import { BrowserContext } from 'puppeteer'
import { BrowserContext, CDPSession } from 'puppeteer'
import { Keyboard } from 'puppeteer'
import { Mouse } from 'puppeteer'
import { Touchscreen } from 'puppeteer'
@ -18,6 +18,9 @@ export const touchscreen = p => () => p.touchscreen
/** @type {(_: Browser | BrowserContext) => () => Promise<Page>} */
export const _newPage = b => () => b.newPage()
/** @type {(_: Page) => () => Promise<CDPSession>} */
export const _createCDPSession = p => () => p.createCDPSession()
/** @type {(_: Browser | BrowserContext) => () => Promise<Array<Page>>} */
export const _all = b => () => b.pages()

7
src/Puppeteer.Page.purs
View File

@ -1,5 +1,6 @@
module Puppeteer.Page
( module X
, createCDPSession
, authenticate
, new
, all
@ -40,7 +41,7 @@ import Effect.Aff (Aff)
import Foreign (Foreign, unsafeToForeign)
import Node.Path (FilePath)
import Puppeteer.Base (Page) as X
import Puppeteer.Base (class PageProducer, Handle, Keyboard, LifecycleEvent, Page, URL, Viewport, duplexLifecycleEvent, duplexViewport, duplexWrite)
import Puppeteer.Base (class PageProducer, CDPSession, Handle, Keyboard, LifecycleEvent, Page, URL, Viewport, duplexLifecycleEvent, duplexViewport, duplexWrite)
import Puppeteer.Handle (unsafeCoerceHandle)
import Puppeteer.Selector (class Selector, toCSS)
import Simple.JSON (readImpl, undefined, writeImpl)
@ -103,6 +104,7 @@ foreign import mouse :: Page -> Effect Unit
foreign import touchscreen :: Page -> Effect Unit
foreign import isClosed :: Page -> Effect Boolean
foreign import _createCDPSession :: Page -> Effect (Promise CDPSession)
foreign import _authenticate :: { username :: String, password :: String } -> Page -> Effect (Promise Unit)
foreign import _newPage :: Foreign -> Effect (Promise Page)
foreign import _all :: Foreign -> Effect (Promise (Array Page))
@ -120,6 +122,9 @@ foreign import _viewport :: Page -> Foreign
new :: forall b. PageProducer b => b -> Aff Page
new = Promise.toAffE <<< _newPage <<< unsafeToForeign
createCDPSession :: Page -> Aff CDPSession
createCDPSession = Promise.toAffE <<< _createCDPSession
authenticate :: { username :: String, password :: String } -> Page -> Aff Unit
authenticate creds = Promise.toAffE <<< _authenticate creds