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

fix: defer all promises

Browse Source
This commit is contained in:
orion 2023-10-06 11:57:45 -05:00
parent 621f93b314
commit f23f7eed5c
Signed by: orion
GPG Key ID: 6D4165AE4C928719
27 changed files with 342 additions and 346 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Puppeteer.Browser.Context.js
View File

@ -13,14 +13,15 @@ export const forPage = p => p.browserContext()
/** @type {(b: Browser) => BrowserContext} */ /** @type {(b: Browser) => BrowserContext} */
export const _default = b => b.defaultBrowserContext() export const _default = b => b.defaultBrowserContext()
/** @type {(o: object) => (b: Browser) => Promise<BrowserContext>} */ /** @type {(o: object) => (b: Browser) => () => Promise<BrowserContext>} */
export const _incognito = o => b => b.createIncognitoBrowserContext(o) export const _incognito = o => b => () => b.createIncognitoBrowserContext(o)
/** @type {(origin: string) => (p: Array<import('puppeteer').Permission>) => (b: BrowserContext) => Promise<void>} */ /** @type {(origin: string) => (p: Array<import('puppeteer').Permission>) => (b: BrowserContext) => () => Promise<void>} */
export const _overridePermissions = o => p => c => c.overridePermissions(o, p) export const _overridePermissions = o => p => c => () =>
c.overridePermissions(o, p)
/** @type {(b: BrowserContext) => Promise<void>} */ /** @type {(b: BrowserContext) => () => Promise<void>} */
export const _clearPermissionOverrides = c => c.clearPermissionOverrides() export const _clearPermissionOverrides = c => () => c.clearPermissionOverrides()
/** @type {(b: BrowserContext) => Promise<void>} */ /** @type {(b: BrowserContext) => () => Promise<void>} */
export const _close = c => c.close() export const _close = c => () => c.close()

17
src/Puppeteer.Browser.Context.purs
View File

@ -17,6 +17,7 @@ import Control.Promise as Promise
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Set (Set) import Data.Set (Set)
import Data.Set as Set import Data.Set as Set
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Puppeteer.Base (BrowserContext) as X import Puppeteer.Base (BrowserContext) as X
@ -46,13 +47,13 @@ foreign import isIncognito :: BrowserContext -> Boolean
foreign import forPage :: Page -> BrowserContext foreign import forPage :: Page -> BrowserContext
foreign import _default :: Browser -> BrowserContext foreign import _default :: Browser -> BrowserContext
foreign import _incognito :: Foreign -> Browser -> Promise BrowserContext foreign import _incognito :: Foreign -> Browser -> Effect (Promise BrowserContext)
foreign import _overridePermissions :: String -> Array Permission -> BrowserContext -> Promise Unit foreign import _overridePermissions :: String -> Array Permission -> BrowserContext -> Effect (Promise Unit)
foreign import _clearPermissionOverrides :: BrowserContext -> Promise Unit foreign import _clearPermissionOverrides :: BrowserContext -> Effect (Promise Unit)
foreign import _close :: BrowserContext -> Promise Unit foreign import _close :: BrowserContext -> Effect (Promise Unit)
incognito :: Create -> Browser -> Aff BrowserContext incognito :: Create -> Browser -> Aff BrowserContext
incognito c b = Promise.toAff $ _incognito (prepareCreate c) b incognito c b = Promise.toAffE $ _incognito (prepareCreate c) b
incognito_ :: Browser -> Aff BrowserContext incognito_ :: Browser -> Aff BrowserContext
incognito_ = incognito { proxyBypassList: Nothing, proxyServer: Nothing } incognito_ = incognito { proxyBypassList: Nothing, proxyServer: Nothing }
@ -61,10 +62,10 @@ default :: Browser -> BrowserContext
default = _default default = _default
overridePermissions :: String -> Set Permission -> BrowserContext -> Aff Unit overridePermissions :: String -> Set Permission -> BrowserContext -> Aff Unit
overridePermissions origin perms ctx = Promise.toAff $ _overridePermissions origin (Set.toUnfoldable perms) ctx overridePermissions origin perms ctx = Promise.toAffE $ _overridePermissions origin (Set.toUnfoldable perms) ctx
clearPermissionOverrides :: BrowserContext -> Aff Unit clearPermissionOverrides :: BrowserContext -> Aff Unit
clearPermissionOverrides = Promise.toAff <<< _clearPermissionOverrides clearPermissionOverrides = Promise.toAffE <<< _clearPermissionOverrides
close :: BrowserContext -> Aff Unit close :: BrowserContext -> Aff Unit
close = Promise.toAff <<< _close close = Promise.toAffE <<< _close

4
src/Puppeteer.Browser.js
View File

@ -1,8 +1,8 @@
import { BrowserContext } from 'puppeteer' import { BrowserContext } from 'puppeteer'
import { Browser } from 'puppeteer' import { Browser } from 'puppeteer'
/** @type {(b: Browser) => Promise<void>} */ /** @type {(b: Browser) => () => Promise<void>} */
export const _close = b => b.close() export const _close = b => () => b.close()
/** @type {(b: Browser) => () => void} */ /** @type {(b: Browser) => () => void} */
export const disconnect = b => () => b.disconnect() export const disconnect = b => () => b.disconnect()

4
src/Puppeteer.Browser.purs
View File

@ -105,7 +105,7 @@ duplexConnect =
in in
duplex into from duplex into from
foreign import _close :: Browser -> Promise Unit foreign import _close :: Browser -> Effect (Promise Unit)
foreign import _get :: Foreign -> Effect Browser foreign import _get :: Foreign -> Effect Browser
foreign import disconnect :: Browser -> Effect Unit foreign import disconnect :: Browser -> Effect Unit
@ -117,4 +117,4 @@ get :: forall b. BrowserAccess b => b -> Effect Browser
get = _get <<< unsafeToForeign get = _get <<< unsafeToForeign
close :: Browser -> Aff Unit close :: Browser -> Aff Unit
close = Promise.toAff <<< _close close = Promise.toAffE <<< _close

8
src/Puppeteer.Eval.js
View File

@ -1,9 +1,9 @@
import { Page, JSHandle } from 'puppeteer' import { Page, JSHandle } from 'puppeteer'
/** /**
* @type {(_: string) => (_: Page | JSHandle<unknown>) => (_: Array<unknown>) => Promise<unknown>} * @type {(_: string) => (_: Page | JSHandle<unknown>) => (_: Array<unknown>) => () => Promise<unknown>}
*/ */
export const _run = s => h => a => { export const _run = s => h => a => () => {
/** @type {any} */ /** @type {any} */
const f = new Function(`return (${s})(...arguments)`) const f = new Function(`return (${s})(...arguments)`)
/** @type {(_s: () => void, ...as: Array<unknown>) => Promise<unknown>} */ /** @type {(_s: () => void, ...as: Array<unknown>) => Promise<unknown>} */
@ -12,9 +12,9 @@ export const _run = s => h => a => {
} }
/** /**
* @type {(_: string) => (_: Page | JSHandle<unknown>) => (_: Array<unknown>) => Promise<JSHandle<unknown>>} * @type {(_: string) => (_: Page | JSHandle<unknown>) => (_: Array<unknown>) => () => Promise<JSHandle<unknown>>}
*/ */
export const _runh = s => h => a => { export const _runh = s => h => a => () => {
/** @type {any} */ /** @type {any} */
const f = new Function(`return (${s})(...arguments)`) const f = new Function(`return (${s})(...arguments)`)
/** @type {(_s: () => void, ...as: Array<unknown>) => Promise<JSHandle<unknown>>} */ /** @type {(_s: () => void, ...as: Array<unknown>) => Promise<JSHandle<unknown>>} */

21
src/Puppeteer.Eval.purs
View File

@ -13,33 +13,34 @@ import Prelude
import Control.Promise (Promise) import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign, unsafeToForeign) import Foreign (Foreign, unsafeToForeign)
import Puppeteer.Base (class EvalTarget, Handle) import Puppeteer.Base (class EvalTarget, Handle)
foreign import _run :: forall @r. String -> Foreign -> Array Foreign -> Promise r foreign import _run :: forall @r. String -> Foreign -> Array Foreign -> Effect (Promise r)
foreign import _runh :: forall @r. String -> Foreign -> Array Foreign -> Promise (Handle r) foreign import _runh :: forall @r. String -> Foreign -> Array Foreign -> Effect (Promise (Handle r))
unsafeRunJs0 :: forall e @r. EvalTarget e => String -> e -> Aff r unsafeRunJs0 :: forall e @r. EvalTarget e => String -> e -> Aff r
unsafeRunJs0 js h = Promise.toAff $ _run js (unsafeToForeign h) [] unsafeRunJs0 js h = Promise.toAffE $ _run js (unsafeToForeign h) []
unsafeRunJsHandle0 :: forall e @r. EvalTarget e => String -> e -> Aff (Handle r) unsafeRunJsHandle0 :: forall e @r. EvalTarget e => String -> e -> Aff (Handle r)
unsafeRunJsHandle0 js h = Promise.toAff $ _runh js (unsafeToForeign h) [] unsafeRunJsHandle0 js h = Promise.toAffE $ _runh js (unsafeToForeign h) []
unsafeRunJs1 :: forall a e @r. EvalTarget e => String -> a -> e -> Aff r unsafeRunJs1 :: forall a e @r. EvalTarget e => String -> a -> e -> Aff r
unsafeRunJs1 js a h = Promise.toAff $ _run js (unsafeToForeign h) [ unsafeToForeign a ] unsafeRunJs1 js a h = Promise.toAffE $ _run js (unsafeToForeign h) [ unsafeToForeign a ]
unsafeRunJsHandle1 :: forall a e @r. EvalTarget e => String -> a -> e -> Aff (Handle r) unsafeRunJsHandle1 :: forall a e @r. EvalTarget e => String -> a -> e -> Aff (Handle r)
unsafeRunJsHandle1 js a h = Promise.toAff $ _runh js (unsafeToForeign h) [ unsafeToForeign a ] unsafeRunJsHandle1 js a h = Promise.toAffE $ _runh js (unsafeToForeign h) [ unsafeToForeign a ]
unsafeRunJs2 :: forall a b e @r. EvalTarget e => String -> a -> b -> e -> Aff r unsafeRunJs2 :: forall a b e @r. EvalTarget e => String -> a -> b -> e -> Aff r
unsafeRunJs2 js a b h = Promise.toAff $ _run js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b ] unsafeRunJs2 js a b h = Promise.toAffE $ _run js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b ]
unsafeRunJsHandle2 :: forall a b e @r. EvalTarget e => String -> a -> b -> e -> Aff (Handle r) unsafeRunJsHandle2 :: forall a b e @r. EvalTarget e => String -> a -> b -> e -> Aff (Handle r)
unsafeRunJsHandle2 js a b h = Promise.toAff $ _runh js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b ] unsafeRunJsHandle2 js a b h = Promise.toAffE $ _runh js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b ]
unsafeRunJs3 :: forall a b c e @r. EvalTarget e => String -> a -> b -> c -> e -> Aff r unsafeRunJs3 :: forall a b c e @r. EvalTarget e => String -> a -> b -> c -> e -> Aff r
unsafeRunJs3 js a b c h = Promise.toAff $ _run js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b, unsafeToForeign c ] unsafeRunJs3 js a b c h = Promise.toAffE $ _run js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b, unsafeToForeign c ]
unsafeRunJsHandle3 :: forall a b c e @r. EvalTarget e => String -> a -> b -> c -> e -> Aff (Handle r) unsafeRunJsHandle3 :: forall a b c e @r. EvalTarget e => String -> a -> b -> c -> e -> Aff (Handle r)
unsafeRunJsHandle3 js a b c h = Promise.toAff $ _runh js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b, unsafeToForeign c ] unsafeRunJsHandle3 js a b c h = Promise.toAffE $ _runh js (unsafeToForeign h) [ unsafeToForeign a, unsafeToForeign b, unsafeToForeign c ]

69
src/Puppeteer.Handle.js
View File

@ -3,56 +3,57 @@
import { ElementHandle } from 'puppeteer' import { ElementHandle } from 'puppeteer'
import { JSHandle } from 'puppeteer' import { JSHandle } from 'puppeteer'
/** @type {(_: string) => (_: ElementHandle<HTMLElement>) => Promise<Array<ElementHandle<Node>>>} */ /** @type {(_: string) => (_: ElementHandle<HTMLElement>) => () => Promise<Array<ElementHandle<Node>>>} */
export const _find = s => h => h.$$(s) export const _find = s => h => () => h.$$(s)
/** @type {(_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _click = h => h.click() export const _click = h => () => h.click()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<unknown>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<unknown>} */
export const _boundingBox = h => h.boundingBox() export const _boundingBox = h => () => h.boundingBox()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<unknown>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<unknown>} */
export const _boxModel = h => h.boxModel() export const _boxModel = h => () => h.boxModel()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _hover = h => h.hover() export const _hover = h => () => h.hover()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<boolean>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<boolean>} */
export const _isHidden = h => h.isHidden() export const _isHidden = h => () => h.isHidden()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<boolean>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<boolean>} */
export const _isVisible = h => h.isVisible() export const _isVisible = h => () => h.isVisible()
/** @type {(_: ElementHandle<HTMLElement>) => Promise<boolean>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<boolean>} */
export const _isIntersectingViewport = h => h.isIntersectingViewport() export const _isIntersectingViewport = h => () => h.isIntersectingViewport()
/** @type {(_: ElementHandle<HTMLElement>) => (_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: ElementHandle<HTMLElement>) => (_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _drop = from => to => to.drop(from) export const _drop = from => to => () => to.drop(from)
/** @type {(_: import('puppeteer').ScreenshotOptions) => (_: ElementHandle<HTMLElement>) => Promise<Buffer>} */ /** @type {(_: import('puppeteer').ScreenshotOptions) => (_: ElementHandle<HTMLElement>) => () => Promise<Buffer>} */
export const _screenshot = o => h => h.screenshot(o).then(bs => Buffer.from(bs)) export const _screenshot = o => h => () =>
h.screenshot(o).then(bs => Buffer.from(bs))
/** @type {(_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _scrollIntoView = h => h.scrollIntoView() export const _scrollIntoView = h => () => h.scrollIntoView()
/** @type {(_: Array<string>) => (_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: Array<string>) => (_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _select = o => h => h.select(...o).then(() => {}) export const _select = o => h => () => h.select(...o).then(() => {})
/** @type {(_: ElementHandle<HTMLElement>) => Promise<void>} */ /** @type {(_: ElementHandle<HTMLElement>) => () => Promise<void>} */
export const _tap = h => h.tap() export const _tap = h => () => h.tap()
/** @type {(_: Array<string>) => (_: ElementHandle<HTMLInputElement>) => Promise<void>} */ /** @type {(_: Array<string>) => (_: ElementHandle<HTMLInputElement>) => () => Promise<void>} */
export const _uploadFile = ps => h => h.uploadFile(...ps) export const _uploadFile = ps => h => () => h.uploadFile(...ps)
/** @type {(_: string) => (_: ElementHandle<HTMLElement>) => Promise<ElementHandle<Element> | null>} */ /** @type {(_: string) => (_: ElementHandle<HTMLElement>) => () => Promise<ElementHandle<Element> | null>} */
export const _waitForSelector = s => h => h.waitForSelector(s) export const _waitForSelector = s => h => () => h.waitForSelector(s)
/** @type {(_: JSHandle<unknown>) => Promise<Array<{k: string, v: JSHandle<unknown>}>>} */ /** @type {(_: JSHandle<unknown>) => () => Promise<Array<{k: string, v: JSHandle<unknown>}>>} */
export const _getProperties = async h => { export const _getProperties = h => async () => {
const ps = await h.getProperties() const ps = await h.getProperties()
return Array.from(ps.entries()).map(([k, v]) => ({ k, v })) return Array.from(ps.entries()).map(([k, v]) => ({ k, v }))
} }
/** @type {<T>(h: JSHandle<T>) => Promise<T>} */ /** @type {<T>(h: JSHandle<T>) => () => Promise<T>} */
export const _clone = h => h.jsonValue() export const _clone = h => () => h.jsonValue()

69
src/Puppeteer.Handle.purs
View File

@ -31,6 +31,7 @@ import Data.Map (Map)
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Nullable (Nullable) import Data.Nullable (Nullable)
import Data.Nullable as Nullable import Data.Nullable as Nullable
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Node.Buffer (Buffer) import Node.Buffer (Buffer)
@ -47,26 +48,26 @@ import Unsafe.Coerce (unsafeCoerce)
import Web.HTML (HTMLElement) import Web.HTML (HTMLElement)
import Web.HTML as HTML import Web.HTML as HTML
foreign import _find :: forall a b. String -> Handle a -> Promise (Array (Handle b)) foreign import _find :: forall a b. String -> Handle a -> Effect (Promise (Array (Handle b)))
foreign import _click :: forall a. Handle a -> Promise Unit foreign import _click :: forall a. Handle a -> Effect (Promise Unit)
foreign import _boundingBox :: forall a. Handle a -> Promise (Nullable Foreign) foreign import _boundingBox :: forall a. Handle a -> Effect (Promise (Nullable Foreign))
foreign import _boxModel :: forall a. Handle a -> Promise (Nullable Foreign) foreign import _boxModel :: forall a. Handle a -> Effect (Promise (Nullable Foreign))
foreign import _hover :: forall a. Handle a -> Promise Unit foreign import _hover :: forall a. Handle a -> Effect (Promise Unit)
foreign import _isHidden :: forall a. Handle a -> Promise Boolean foreign import _isHidden :: forall a. Handle a -> Effect (Promise Boolean)
foreign import _isVisible :: forall a. Handle a -> Promise Boolean foreign import _isVisible :: forall a. Handle a -> Effect (Promise Boolean)
foreign import _isIntersectingViewport :: forall a. Handle a -> Promise Boolean foreign import _isIntersectingViewport :: forall a. Handle a -> Effect (Promise Boolean)
foreign import _drop :: forall a b. Handle a -> Handle b -> Promise Unit foreign import _drop :: forall a b. Handle a -> Handle b -> Effect (Promise Unit)
foreign import _screenshot :: forall a. Foreign -> Handle a -> Promise Buffer foreign import _screenshot :: forall a. Foreign -> Handle a -> Effect (Promise Buffer)
foreign import _scrollIntoView :: forall a. Handle a -> Promise Unit foreign import _scrollIntoView :: forall a. Handle a -> Effect (Promise Unit)
foreign import _select :: forall a. Array String -> Handle a -> Promise Unit foreign import _select :: forall a. Array String -> Handle a -> Effect (Promise Unit)
foreign import _tap :: forall a. Handle a -> Promise Unit foreign import _tap :: forall a. Handle a -> Effect (Promise Unit)
foreign import _uploadFile :: forall a. Array FilePath -> Handle a -> Promise Unit foreign import _uploadFile :: forall a. Array FilePath -> Handle a -> Effect (Promise Unit)
foreign import _waitForSelector :: forall a b. String -> Handle a -> Promise (Handle b) foreign import _waitForSelector :: forall a b. String -> Handle a -> Effect (Promise (Handle b))
foreign import _clone :: forall a. Handle a -> Promise a foreign import _clone :: forall a. Handle a -> Effect (Promise a)
foreign import _getProperties :: forall a. Handle a -> Promise (Array { k :: String, v :: (Handle Foreign) }) foreign import _getProperties :: forall a. Handle a -> Effect (Promise (Array { k :: String, v :: (Handle Foreign) }))
clone :: forall a. WriteForeign a => ReadForeign a => Handle a -> Aff a clone :: forall a. WriteForeign a => ReadForeign a => Handle a -> Aff a
clone = Promise.toAff <<< _clone clone = Promise.toAffE <<< _clone
findFirst :: forall a b sel. IsElement a => Selector sel b => sel -> Handle a -> Aff (Maybe (Handle b)) findFirst :: forall a b sel. IsElement a => Selector sel b => sel -> Handle a -> Aff (Maybe (Handle b))
findFirst q h = do findFirst q h = do
@ -74,52 +75,52 @@ findFirst q h = do
pure $ head els pure $ head els
findAll :: forall a b sel. IsElement a => Selector sel b => sel -> Handle a -> Aff (Array (Handle b)) findAll :: forall a b sel. IsElement a => Selector sel b => sel -> Handle a -> Aff (Array (Handle b))
findAll q h = Promise.toAff $ _find (Selector.toCSS q) h findAll q h = Promise.toAffE $ _find (Selector.toCSS q) h
click :: forall a. IsElement a => Handle a -> Aff Unit click :: forall a. IsElement a => Handle a -> Aff Unit
click h = Promise.toAff $ _click h click h = Promise.toAffE $ _click h
boundingBox :: forall a. IsElement a => Handle a -> Aff (Maybe Foreign) boundingBox :: forall a. IsElement a => Handle a -> Aff (Maybe Foreign)
boundingBox = map Nullable.toMaybe <<< Promise.toAff <<< _boundingBox boundingBox = map Nullable.toMaybe <<< Promise.toAffE <<< _boundingBox
boxModel :: forall a. IsElement a => Handle a -> Aff (Maybe Foreign) boxModel :: forall a. IsElement a => Handle a -> Aff (Maybe Foreign)
boxModel = map Nullable.toMaybe <<< Promise.toAff <<< _boxModel boxModel = map Nullable.toMaybe <<< Promise.toAffE <<< _boxModel
hover :: forall a. IsElement a => Handle a -> Aff Unit hover :: forall a. IsElement a => Handle a -> Aff Unit
hover = Promise.toAff <<< _hover hover = Promise.toAffE <<< _hover
isHidden :: forall a. IsElement a => Handle a -> Aff Boolean isHidden :: forall a. IsElement a => Handle a -> Aff Boolean
isHidden = Promise.toAff <<< _isHidden isHidden = Promise.toAffE <<< _isHidden
isVisible :: forall a. IsElement a => Handle a -> Aff Boolean isVisible :: forall a. IsElement a => Handle a -> Aff Boolean
isVisible = Promise.toAff <<< _isVisible isVisible = Promise.toAffE <<< _isVisible
isIntersectingViewport :: forall a. IsElement a => Handle a -> Aff Boolean isIntersectingViewport :: forall a. IsElement a => Handle a -> Aff Boolean
isIntersectingViewport = Promise.toAff <<< _isIntersectingViewport isIntersectingViewport = Promise.toAffE <<< _isIntersectingViewport
drop :: forall a b. IsElement a => IsElement b => Handle a -> Handle b -> Aff Unit drop :: forall a b. IsElement a => IsElement b => Handle a -> Handle b -> Aff Unit
drop a = Promise.toAff <<< _drop a drop a = Promise.toAffE <<< _drop a
screenshot :: forall a. IsElement a => ScreenshotOptions -> Handle a -> Aff Buffer screenshot :: forall a. IsElement a => ScreenshotOptions -> Handle a -> Aff Buffer
screenshot o = Promise.toAff <<< _screenshot (prepareScreenshotOptions o) screenshot o = Promise.toAffE <<< _screenshot (prepareScreenshotOptions o)
scrollIntoView :: forall a. IsElement a => Handle a -> Aff Unit scrollIntoView :: forall a. IsElement a => Handle a -> Aff Unit
scrollIntoView = Promise.toAff <<< _scrollIntoView scrollIntoView = Promise.toAffE <<< _scrollIntoView
select :: forall a. IsElement a => Array String -> Handle a -> Aff Unit select :: forall a. IsElement a => Array String -> Handle a -> Aff Unit
select a = Promise.toAff <<< _select a select a = Promise.toAffE <<< _select a
tap :: forall a. IsElement a => Handle a -> Aff Unit tap :: forall a. IsElement a => Handle a -> Aff Unit
tap = Promise.toAff <<< _tap tap = Promise.toAffE <<< _tap
uploadFile :: Array FilePath -> Handle HTML.HTMLInputElement -> Aff Unit uploadFile :: Array FilePath -> Handle HTML.HTMLInputElement -> Aff Unit
uploadFile a = Promise.toAff <<< _uploadFile a uploadFile a = Promise.toAffE <<< _uploadFile a
waitForSelector :: forall a b s. Selector s b => IsElement a => s -> Handle a -> Aff (Handle b) waitForSelector :: forall a b s. Selector s b => IsElement a => s -> Handle a -> Aff (Handle b)
waitForSelector s = Promise.toAff <<< _waitForSelector (Selector.toCSS s) waitForSelector s = Promise.toAffE <<< _waitForSelector (Selector.toCSS s)
getProperties :: forall a. Handle a -> Aff (Map String (Handle Foreign)) getProperties :: forall a. Handle a -> Aff (Map String (Handle Foreign))
getProperties = map FFI.makeMap <<< Promise.toAff <<< _getProperties getProperties = map FFI.makeMap <<< Promise.toAffE <<< _getProperties
toHTML :: forall a. Handle a -> Aff (Maybe (Handle HTMLElement)) toHTML :: forall a. Handle a -> Aff (Maybe (Handle HTMLElement))
toHTML h = do toHTML h = do

18
src/Puppeteer.Keyboard.js
View File

@ -2,24 +2,26 @@ import { Keyboard } from 'puppeteer'
/** /**
* `foreign import _up :: Foreign -> Keyboard -> Promise Unit` * `foreign import _up :: Foreign -> Keyboard -> Promise Unit`
* @type {(_1: import("puppeteer").KeyInput) => (_2: Keyboard) => Promise<void>} * @type {(_1: import("puppeteer").KeyInput) => (_2: Keyboard) => () => Promise<void>}
*/ */
export const _up = k => kb => kb.up(k) export const _up = k => kb => () => kb.up(k)
/** /**
* `foreign import _down :: Foreign -> Keyboard -> Promise Unit` * `foreign import _down :: Foreign -> Keyboard -> Promise Unit`
* @type {(_1: import("puppeteer").KeyInput) => (_2: Keyboard) => Promise<void>} * @type {(_1: import("puppeteer").KeyInput) => (_2: Keyboard) => () => Promise<void>}
*/ */
export const _down = k => kb => kb.down(k) export const _down = k => kb => () => kb.down(k)
/** /**
* foreign import _press :: Foreign -> Nullable Int -> Keyboard -> Promise Unit * foreign import _press :: Foreign -> Nullable Int -> Keyboard -> Promise Unit
* @type {(_1: import('puppeteer').KeyInput) => (_2: number | null) => (_3: Keyboard) => Promise<void>} * @type {(_1: import('puppeteer').KeyInput) => (_2: number | null) => (_3: Keyboard) => () => Promise<void>}
*/ */
export const _press = k => ms => kb => kb.press(k, { delay: ms || undefined }) export const _press = k => ms => kb => () =>
kb.press(k, { delay: ms || undefined })
/** /**
* foreign import _type :: String -> Nullable Int -> Keyboard -> Promise Unit * foreign import _type :: String -> Nullable Int -> Keyboard -> Promise Unit
* @type {(_1: string) => (_2: number | null) => (_3: Keyboard) => Promise<void>} * @type {(_1: string) => (_2: number | null) => (_3: Keyboard) => () => Promise<void>}
*/ */
export const _type = k => ms => kb => kb.type(k, { delay: ms || undefined }) export const _type = k => ms => kb => () =>
kb.type(k, { delay: ms || undefined })

17
src/Puppeteer.Keyboard.purs
View File

@ -11,6 +11,7 @@ import Data.Nullable as Nullable
import Data.Ord.Generic (genericCompare) import Data.Ord.Generic (genericCompare)
import Data.String as String import Data.String as String
import Data.String.CodePoints as CodePoint import Data.String.CodePoints as CodePoint
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Puppeteer.Base (Context(..), Keyboard) import Puppeteer.Base (Context(..), Keyboard)
@ -20,24 +21,24 @@ import Simple.JSON (writeImpl)
type DownHint :: Symbol type DownHint :: Symbol
type DownHint = "Key is being held. Invoking `Puppeteer.closeContext` will release this key" type DownHint = "Key is being held. Invoking `Puppeteer.closeContext` will release this key"
foreign import _up :: Foreign -> Keyboard -> Promise Unit foreign import _up :: Foreign -> Keyboard -> Effect (Promise Unit)
foreign import _down :: Foreign -> Keyboard -> Promise Unit foreign import _down :: Foreign -> Keyboard -> Effect (Promise Unit)
foreign import _press :: Foreign -> Nullable Int -> Keyboard -> Promise Unit foreign import _press :: Foreign -> Nullable Int -> Keyboard -> Effect (Promise Unit)
foreign import _type :: String -> Nullable Int -> Keyboard -> Promise Unit foreign import _type :: String -> Nullable Int -> Keyboard -> Effect (Promise Unit)
up :: Key -> Keyboard -> Aff Unit up :: Key -> Keyboard -> Aff Unit
up k kb = Promise.toAff $ _up (prepareKey k) kb up k kb = Promise.toAffE $ _up (prepareKey k) kb
down :: Key -> Keyboard -> Aff (Context DownHint) down :: Key -> Keyboard -> Aff (Context DownHint)
down k kb = do down k kb = do
Promise.toAff $ _down (prepareKey k) kb Promise.toAffE $ _down (prepareKey k) kb
pure $ Context (\_ -> up k kb) pure $ Context (\_ -> up k kb)
press :: Key -> Keyboard -> Aff Unit press :: Key -> Keyboard -> Aff Unit
press k kb = Promise.toAff $ _press (prepareKey k) Nullable.null kb press k kb = Promise.toAffE $ _press (prepareKey k) Nullable.null kb
doType :: String -> Keyboard -> Aff Unit doType :: String -> Keyboard -> Aff Unit
doType s kb = Promise.toAff $ _type s Nullable.null kb doType s kb = Promise.toAffE $ _type s Nullable.null kb
data KeyMod data KeyMod
= KeyModMetaLeft = KeyModMetaLeft

12
src/Puppeteer.Page.Cookie.js
View File

@ -2,18 +2,18 @@ import { Page } from 'puppeteer'
/** /**
* `foreign import _list :: Array String -> Page -> Promise (Array CookieRaw)` * `foreign import _list :: Array String -> Page -> Promise (Array CookieRaw)`
* @type {(_0: Array<string>) => (_1: Page) => Promise<Array<import('devtools-protocol').Protocol.Network.Cookie>>} * @type {(_0: Array<string>) => (_1: Page) => () => Promise<Array<import('devtools-protocol').Protocol.Network.Cookie>>}
*/ */
export const _list = cs => page => page.cookies(...cs) export const _list = cs => page => () => page.cookies(...cs)
/** /**
* `foreign import _delete :: Foreign -> Page -> Promise Unit` * `foreign import _delete :: Foreign -> Page -> Promise Unit`
* @type {(_0: import('devtools-protocol').Protocol.Network.DeleteCookiesRequest) => (_1: Page) => Promise<void>} * @type {(_0: import('devtools-protocol').Protocol.Network.DeleteCookiesRequest) => (_1: Page) => () => Promise<void>}
*/ */
export const _delete = dc => p => p.deleteCookie(dc) export const _delete = dc => p => () => p.deleteCookie(dc)
/** /**
* `foreign import _set :: Foreign -> Page -> Promise Unit` * `foreign import _set :: Foreign -> Page -> Promise Unit`
* @type {(_0: import('devtools-protocol').Protocol.Network.CookieParam) => (_1: Page) => Promise<void>} * @type {(_0: import('devtools-protocol').Protocol.Network.CookieParam) => (_1: Page) => () => Promise<void>}
*/ */
export const _set = c => p => p.setCookie(c) export const _set = c => p => () => p.setCookie(c)

17
src/Puppeteer.Page.Cookie.purs
View File

@ -14,22 +14,23 @@ import Prelude
import Control.Promise (Promise) import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Data.Array.NonEmpty (NonEmptyArray)
import Data.Array as Array import Data.Array as Array
import Data.Array.NonEmpty (NonEmptyArray)
import Data.Array.NonEmpty as Array.NonEmpty import Data.Array.NonEmpty as Array.NonEmpty
import Data.DateTime.Instant (Instant) import Data.DateTime.Instant (Instant)
import Data.DateTime.Instant as Instant import Data.DateTime.Instant as Instant
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Newtype (unwrap, wrap) import Data.Newtype (unwrap, wrap)
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Puppeteer.Base (Page, URL) import Puppeteer.Base (Page, URL)
import Puppeteer.FFI as FFI import Puppeteer.FFI as FFI
import Simple.JSON (writeImpl) import Simple.JSON (writeImpl)
foreign import _list :: Array String -> Page -> Promise (Array CookieRaw) foreign import _list :: Array String -> Page -> Effect (Promise (Array CookieRaw))
foreign import _delete :: Foreign -> Page -> Promise Unit foreign import _delete :: Foreign -> Page -> Effect (Promise Unit)
foreign import _set :: Foreign -> Page -> Promise Unit foreign import _set :: Foreign -> Page -> Effect (Promise Unit)
data CookieSameSite = Strict | Lax | None data CookieSameSite = Strict | Lax | None
@ -92,23 +93,23 @@ set { name, value, url, domain, path, secure, sameSite, expires } p =
, expires: map (unwrap <<< Instant.unInstant) expires , expires: map (unwrap <<< Instant.unInstant) expires
} }
in in
Promise.toAff $ _set o p Promise.toAffE $ _set o p
delete :: CookieDelete -> Page -> Aff Unit delete :: CookieDelete -> Page -> Aff Unit
delete { name, url, domain, path } p = delete { name, url, domain, path } p =
let let
o = writeImpl { name, url: FFI.maybeToUndefined url, domain: FFI.maybeToUndefined domain, path: FFI.maybeToUndefined path } o = writeImpl { name, url: FFI.maybeToUndefined url, domain: FFI.maybeToUndefined domain, path: FFI.maybeToUndefined path }
in in
Promise.toAff $ _delete o p Promise.toAffE $ _delete o p
listForCurrentPage :: Page -> Aff (Array Cookie) listForCurrentPage :: Page -> Aff (Array Cookie)
listForCurrentPage = map (Array.catMaybes <<< map cookieRaw) <<< Promise.toAff <<< _list [] listForCurrentPage = map (Array.catMaybes <<< map cookieRaw) <<< Promise.toAffE <<< _list []
listForUrl :: URL -> Page -> Aff (Array Cookie) listForUrl :: URL -> Page -> Aff (Array Cookie)
listForUrl = listForUrls <<< pure listForUrl = listForUrls <<< pure
listForUrls :: NonEmptyArray URL -> Page -> Aff (Array Cookie) listForUrls :: NonEmptyArray URL -> Page -> Aff (Array Cookie)
listForUrls urls p = map (Array.catMaybes <<< map cookieRaw) $ Promise.toAff $ _list (Array.NonEmpty.toArray urls) p listForUrls urls p = map (Array.catMaybes <<< map cookieRaw) $ Promise.toAffE $ _list (Array.NonEmpty.toArray urls) p
cookieRaw :: CookieRaw -> Maybe Cookie cookieRaw :: CookieRaw -> Maybe Cookie
cookieRaw { domain, expires, path, url, name, value, sameSite, secure } = do cookieRaw { domain, expires, path, url, name, value, sameSite, secure } = do

73
src/Puppeteer.Page.Emulate.js
View File

@ -5,57 +5,58 @@ import Cdp from 'devtools-protocol'
/** @type {(_0: keyof KnownDevices) => import('puppeteer').Device} */ /** @type {(_0: keyof KnownDevices) => import('puppeteer').Device} */
export const _knownDevice = k => KnownDevices[k] export const _knownDevice = k => KnownDevices[k]
/** @type {(_0: import('puppeteer').Device) => (_1: Page) => Promise<void>} */ /** @type {(_0: import('puppeteer').Device) => (_1: Page) => () => Promise<void>} */
export const _emulate = d => p => p.emulate(d) export const _emulate = d => p => () => p.emulate(d)
/** @type {(_0: number) => (_1: Page) => Promise<void>} */ /** @type {(_0: number) => (_1: Page) => () => Promise<void>} */
export const _cpuThrottling = f => p => p.emulateCPUThrottling(f) export const _cpuThrottling = f => p => () => p.emulateCPUThrottling(f)
/** @type {(_0: { isUserActive: boolean, isScreenUnlocked: boolean } | undefined) => (_1: Page) => Promise<void>} */ /** @type {(_0: { isUserActive: boolean, isScreenUnlocked: boolean } | undefined) => (_1: Page) => () => Promise<void>} */
export const _idle = o => p => p.emulateIdleState(o) export const _idle = o => p => () => p.emulateIdleState(o)
/** @type {(_1: Page) => Promise<void>} */ /** @type {(_1: Page) => () => Promise<void>} */
export const _emulatePrint = p => p.emulateMediaType('print') export const _emulatePrint = p => () => p.emulateMediaType('print')
/** @type {(_1: Page) => Promise<void>} */ /** @type {(_1: Page) => () => Promise<void>} */
export const _unemulatePrint = p => p.emulateMediaType(undefined) export const _unemulatePrint = p => () => p.emulateMediaType(undefined)
/** @type {(_0: import('puppeteer').NetworkConditions) => (_1: Page) => Promise<void>} */ /** @type {(_0: import('puppeteer').NetworkConditions) => (_1: Page) => () => Promise<void>} */
export const _emulateNetwork = c => p => p.emulateNetworkConditions(c) export const _emulateNetwork = c => p => () => p.emulateNetworkConditions(c)
/** @type {(_1: Page) => Promise<void>} */ /** @type {(_1: Page) => () => Promise<void>} */
export const _unemulateNetwork = p => p.emulateNetworkConditions(null) export const _unemulateNetwork = p => () => p.emulateNetworkConditions(null)
/** @type {(_0: string) => (_1: Page) => Promise<void>} */ /** @type {(_0: string) => (_1: Page) => () => Promise<void>} */
export const _emulateTimezone = c => p => p.emulateTimezone(c) export const _emulateTimezone = c => p => () => p.emulateTimezone(c)
/** @type {(_1: Page) => Promise<void>} */ /** @type {(_1: Page) => () => Promise<void>} */
export const _unemulateTimezone = p => p.emulateTimezone(undefined) export const _unemulateTimezone = p => () => p.emulateTimezone(undefined)
/** @type {(_0: import('devtools-protocol').Protocol.Emulation.SetEmulatedVisionDeficiencyRequest['type']) => (_1: Page) => Promise<void>} */ /** @type {(_0: import('devtools-protocol').Protocol.Emulation.SetEmulatedVisionDeficiencyRequest['type']) => (_1: Page) => () => Promise<void>} */
export const _emulateVisionDeficiency = c => p => p.emulateVisionDeficiency(c) export const _emulateVisionDeficiency = c => p => () =>
p.emulateVisionDeficiency(c)
/** @type {(_1: Page) => Promise<void>} */ /** @type {(_1: Page) => () => Promise<void>} */
export const _unemulateVisionDeficiency = p => export const _unemulateVisionDeficiency = p => () =>
p.emulateVisionDeficiency(undefined) p.emulateVisionDeficiency(undefined)
/** @type {(_0: import('puppeteer').GeolocationOptions) => (_1: Page) => Promise<void>} */ /** @type {(_0: import('puppeteer').GeolocationOptions) => (_1: Page) => () => Promise<void>} */
export const _setGeolocation = g => p => p.setGeolocation(g) export const _setGeolocation = g => p => () => p.setGeolocation(g)
/** @type {(_0: Page) => Promise<void>} */ /** @type {(_0: Page) => () => Promise<void>} */
export const _unsetGeolocation = p => export const _unsetGeolocation = p => () =>
p p
.createCDPSession() .createCDPSession()
.then(cdp => cdp.send('Emulation.clearGeolocationOverride')) .then(cdp => cdp.send('Emulation.clearGeolocationOverride'))
/** @type {(_0: Page) => Promise<void>} */ /** @type {(_0: Page) => () => Promise<void>} */
export const _setJavascriptDisabled = p => p.setJavaScriptEnabled(false) export const _setJavascriptDisabled = p => () => p.setJavaScriptEnabled(false)
/** @type {(_0: Page) => Promise<void>} */ /** @type {(_0: Page) => () => Promise<void>} */
export const _unsetJavascriptDisabled = p => p.setJavaScriptEnabled(true) export const _unsetJavascriptDisabled = p => () => p.setJavaScriptEnabled(true)
/** @type {(_0: Page) => Promise<void>} */ /** @type {(_0: Page) => () => Promise<void>} */
export const _setOffline = p => p.setOfflineMode(true) export const _setOffline = p => () => p.setOfflineMode(true)
/** @type {(_0: Page) => Promise<void>} */ /** @type {(_0: Page) => () => Promise<void>} */
export const _unsetOffline = p => p.setOfflineMode(false) export const _unsetOffline = p => () => p.setOfflineMode(false)
/** @type {(_0: String) => (_1: Page) => Promise<void>} */ /** @type {(_0: String) => (_1: Page) => () => Promise<void>} */
export const _setUserAgent = ua => p => p.setUserAgent(ua) export const _setUserAgent = ua => p => () => p.setUserAgent(ua)

65
src/Puppeteer.Page.Emulate.purs
View File

@ -19,6 +19,7 @@ import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Data.Newtype (class Newtype, unwrap) import Data.Newtype (class Newtype, unwrap)
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Puppeteer.Base (Context(..), Handle, Page) import Puppeteer.Base (Context(..), Handle, Page)
@ -45,33 +46,33 @@ derive instance ntthrottlefactor :: Newtype ThrottleFactor _
noThrottling :: ThrottleFactor noThrottling :: ThrottleFactor
noThrottling = ThrottleFactor 1.0 noThrottling = ThrottleFactor 1.0
foreign import _idle :: Foreign -> Page -> Promise Unit foreign import _idle :: Foreign -> Page -> Effect (Promise Unit)
foreign import _knownDevice :: String -> Foreign foreign import _knownDevice :: String -> Foreign
foreign import _emulate :: Foreign -> Page -> Promise Unit foreign import _emulate :: Foreign -> Page -> Effect (Promise Unit)
foreign import _cpuThrottling :: Number -> Page -> Promise Unit foreign import _cpuThrottling :: Number -> Page -> Effect (Promise Unit)
foreign import _emulatePrint :: Page -> Promise Unit foreign import _emulatePrint :: Page -> Effect (Promise Unit)
foreign import _unemulatePrint :: Page -> Promise Unit foreign import _unemulatePrint :: Page -> Effect (Promise Unit)
foreign import _emulateNetwork :: NetworkConditions -> Page -> Promise Unit foreign import _emulateNetwork :: NetworkConditions -> Page -> Effect (Promise Unit)
foreign import _unemulateNetwork :: Page -> Promise Unit foreign import _unemulateNetwork :: Page -> Effect (Promise Unit)
foreign import _emulateTimezone :: String -> Page -> Promise Unit foreign import _emulateTimezone :: String -> Page -> Effect (Promise Unit)
foreign import _unemulateTimezone :: Page -> Promise Unit foreign import _unemulateTimezone :: Page -> Effect (Promise Unit)
foreign import _emulateVisionDeficiency :: String -> Page -> Promise Unit foreign import _emulateVisionDeficiency :: String -> Page -> Effect (Promise Unit)
foreign import _unemulateVisionDeficiency :: Page -> Promise Unit foreign import _unemulateVisionDeficiency :: Page -> Effect (Promise Unit)
foreign import _setGeolocation :: Geolocation -> Page -> Promise Unit foreign import _setGeolocation :: Geolocation -> Page -> Effect (Promise Unit)
foreign import _unsetGeolocation :: Page -> Promise Unit foreign import _unsetGeolocation :: Page -> Effect (Promise Unit)
foreign import _setJavascriptDisabled :: Page -> Promise Unit foreign import _setJavascriptDisabled :: Page -> Effect (Promise Unit)
foreign import _unsetJavascriptDisabled :: Page -> Promise Unit foreign import _unsetJavascriptDisabled :: Page -> Effect (Promise Unit)
foreign import _setOffline :: Page -> Promise Unit foreign import _setOffline :: Page -> Effect (Promise Unit)
foreign import _unsetOffline :: Page -> Promise Unit foreign import _unsetOffline :: Page -> Effect (Promise Unit)
foreign import _setUserAgent :: String -> Page -> Promise Unit foreign import _setUserAgent :: String -> Page -> Effect (Promise Unit)
type PrintHint :: Symbol type PrintHint :: Symbol
type PrintHint = "Print mode is being emulated. Invoking `Puppeteer.closeContext` will undo this emulation." type PrintHint = "Print mode is being emulated. Invoking `Puppeteer.closeContext` will undo this emulation."
@ -92,41 +93,41 @@ type IdleHint :: Symbol
type IdleHint = "User idling is being emulated. Invoking `Puppeteer.closeContext` will undo this emulation." type IdleHint = "User idling is being emulated. Invoking `Puppeteer.closeContext` will undo this emulation."
device :: Device -> Page -> Aff Unit device :: Device -> Page -> Aff Unit
device d p = Promise.toAff $ _emulate (_knownDevice <<< knownDeviceString $ d) p device d p = Promise.toAffE $ _emulate (_knownDevice <<< knownDeviceString $ d) p
cpuThrottling :: ThrottleFactor -> Page -> Aff (Context CpuThrottleHint) cpuThrottling :: ThrottleFactor -> Page -> Aff (Context CpuThrottleHint)
cpuThrottling t p = do cpuThrottling t p = do
Promise.toAff $ _cpuThrottling (unwrap t) p Promise.toAffE $ _cpuThrottling (unwrap t) p
pure $ Context (\_ -> Promise.toAff $ _cpuThrottling 1.0 p) pure $ Context (\_ -> Promise.toAffE $ _cpuThrottling 1.0 p)
idle :: Idle -> Page -> Aff (Context IdleHint) idle :: Idle -> Page -> Aff (Context IdleHint)
idle UserInactive p = map (const $ Context (\_ -> unidle p)) <<< Promise.toAff <<< _idle (writeImpl { isUserActive: false, isScreenUnlocked: true }) $ p idle UserInactive p = map (const $ Context (\_ -> unidle p)) <<< Promise.toAffE <<< _idle (writeImpl { isUserActive: false, isScreenUnlocked: true }) $ p
idle ScreenLocked p = map (const $ Context (\_ -> unidle p)) <<< Promise.toAff <<< _idle (writeImpl { isScreenUnlocked: false, isUserActive: false }) $ p idle ScreenLocked p = map (const $ Context (\_ -> unidle p)) <<< Promise.toAffE <<< _idle (writeImpl { isScreenUnlocked: false, isUserActive: false }) $ p
idle NotIdle p = map (const mempty) $ unidle p idle NotIdle p = map (const mempty) $ unidle p
unidle :: Page -> Aff Unit unidle :: Page -> Aff Unit
unidle = void <<< Promise.toAff <<< _idle undefined unidle = void <<< Promise.toAffE <<< _idle undefined
print :: Page -> Aff (Context PrintHint) print :: Page -> Aff (Context PrintHint)
print p = do print p = do
Promise.toAff $ _emulatePrint p Promise.toAffE $ _emulatePrint p
pure $ Context (\_ -> Promise.toAff $ _unemulatePrint p) pure $ Context (\_ -> Promise.toAffE $ _unemulatePrint p)
network :: NetworkConditions -> Page -> Aff (Context NetworkHint) network :: NetworkConditions -> Page -> Aff (Context NetworkHint)
network n p = do network n p = do
Promise.toAff $ _emulateNetwork n p Promise.toAffE $ _emulateNetwork n p
pure $ Context (\_ -> Promise.toAff $ _unemulateNetwork p) pure $ Context (\_ -> Promise.toAffE $ _unemulateNetwork p)
--| https://pptr.dev/api/puppeteer.page.emulatetimezone --| https://pptr.dev/api/puppeteer.page.emulatetimezone
timezone :: String -> Page -> Aff (Context TimezoneHint) timezone :: String -> Page -> Aff (Context TimezoneHint)
timezone tz p = do timezone tz p = do
Promise.toAff $ _emulateTimezone tz p Promise.toAffE $ _emulateTimezone tz p
pure $ Context (\_ -> Promise.toAff $ _unemulateTimezone p) pure $ Context (\_ -> Promise.toAffE $ _unemulateTimezone p)
visionDeficiency :: VisionDeficiency -> Page -> Aff (Context VisionDeficiencyHint) visionDeficiency :: VisionDeficiency -> Page -> Aff (Context VisionDeficiencyHint)
visionDeficiency d p = do visionDeficiency d p = do
Promise.toAff $ _emulateVisionDeficiency (visionDeficiencyString d) p Promise.toAffE $ _emulateVisionDeficiency (visionDeficiencyString d) p
pure $ Context (\_ -> Promise.toAff $ _unemulateVisionDeficiency p) pure $ Context (\_ -> Promise.toAffE $ _unemulateVisionDeficiency p)
data VisionDeficiency data VisionDeficiency
= BlurredVision = BlurredVision

14
src/Puppeteer.Page.Event.Dialog.js
View File

@ -1,9 +1,3 @@
// foreign import defaultValue :: Dialog -> String
// foreign import message :: Dialog -> String
// foreign import _dismiss :: Dialog -> Promise Unit
// foreign import _accept :: Foreign -> Dialog -> Promise Unit
// foreign import _type :: Dialog -> String
import { Dialog } from 'puppeteer' import { Dialog } from 'puppeteer'
/** @type {(d: Dialog) => string} */ /** @type {(d: Dialog) => string} */
@ -12,11 +6,11 @@ export const defaultValue = d => d.defaultValue()
/** @type {(d: Dialog) => string} */ /** @type {(d: Dialog) => string} */
export const message = d => d.message() export const message = d => d.message()
/** @type {(d: Dialog) => Promise<void>} */ /** @type {(d: Dialog) => () => Promise<void>} */
export const _dismiss = d => d.dismiss() export const _dismiss = d => () => d.dismiss()
/** @type {(s: string | undefined) => (d: Dialog) => Promise<void>} */ /** @type {(s: string | undefined) => (d: Dialog) => () => Promise<void>} */
export const _accept = s => d => d.accept(s) export const _accept = s => d => () => d.accept(s)
/** @type {(d: Dialog) => string} */ /** @type {(d: Dialog) => string} */
export const _type = d => d.type() export const _type = d => d.type()

9
src/Puppeteer.Page.Event.Dialog.purs
View File

@ -13,6 +13,7 @@ import Prelude
import Control.Promise (Promise) import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign, unsafeFromForeign) import Foreign (Foreign, unsafeFromForeign)
import Puppeteer.FFI as FFI import Puppeteer.FFI as FFI
@ -43,15 +44,15 @@ instance dialogForeign :: ReadForeign Dialog where
foreign import defaultValue :: Dialog -> String foreign import defaultValue :: Dialog -> String
foreign import message :: Dialog -> String foreign import message :: Dialog -> String
foreign import _dismiss :: Dialog -> Promise Unit foreign import _dismiss :: Dialog -> Effect (Promise Unit)
foreign import _accept :: Foreign -> Dialog -> Promise Unit foreign import _accept :: Foreign -> Dialog -> Effect (Promise Unit)
foreign import _type :: Dialog -> String foreign import _type :: Dialog -> String
dismiss :: Dialog -> Aff Unit dismiss :: Dialog -> Aff Unit
dismiss = Promise.toAff <<< _dismiss dismiss = Promise.toAffE <<< _dismiss
accept :: Maybe String -> Dialog -> Aff Unit accept :: Maybe String -> Dialog -> Aff Unit
accept s = Promise.toAff <<< _accept (FFI.maybeToUndefined s) accept s = Promise.toAffE <<< _accept (FFI.maybeToUndefined s)
dialogType :: Dialog -> DialogType dialogType :: Dialog -> DialogType
dialogType = dialogTypeOfString <<< _type dialogType = dialogTypeOfString <<< _type

9
src/Puppeteer.Page.Export.purs
View File

@ -5,6 +5,7 @@ import Prelude
import Control.Promise (Promise) import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Node.Buffer (Buffer) import Node.Buffer (Buffer)
@ -97,11 +98,11 @@ preparePdfOptions
, margin: FFI.maybeToUndefined $ map margin' margin , margin: FFI.maybeToUndefined $ map margin' margin
} }
foreign import _screenshot :: Foreign -> Page -> Promise Buffer foreign import _screenshot :: Foreign -> Page -> Effect (Promise Buffer)
foreign import _pdf :: Foreign -> Page -> Promise Buffer foreign import _pdf :: Foreign -> Page -> Effect (Promise Buffer)
screenshot :: ScreenshotOptions -> Page -> Aff Buffer screenshot :: ScreenshotOptions -> Page -> Aff Buffer
screenshot o = Promise.toAff <<< _screenshot (prepareScreenshotOptions o) screenshot o = Promise.toAffE <<< _screenshot (prepareScreenshotOptions o)
pdf :: PdfOptions -> Page -> Aff Buffer pdf :: PdfOptions -> Page -> Aff Buffer
pdf o = Promise.toAff <<< _pdf (preparePdfOptions o) pdf o = Promise.toAffE <<< _pdf (preparePdfOptions o)

12
src/Puppeteer.Page.HTTP.Response.js
View File

@ -9,21 +9,21 @@ export const request = r => () => r.request()
/** /**
* `foreign import _bodyBuffer :: Response -> Promise Buffer` * `foreign import _bodyBuffer :: Response -> Promise Buffer`
* @type {(_0: HTTPResponse) => Promise<Buffer>} * @type {(_0: HTTPResponse) => () => Promise<Buffer>}
*/ */
export const _bodyBuffer = r => r.buffer() export const _bodyBuffer = r => () => r.buffer()
/** /**
* `foreign import _bodyJson :: Response -> Promise Foreign` * `foreign import _bodyJson :: Response -> Promise Foreign`
* @type {(_0: HTTPResponse) => Promise<unknown>} * @type {(_0: HTTPResponse) => () => Promise<unknown>}
*/ */
export const _bodyJson = r => r.json() export const _bodyJson = r => () => r.json()
/** /**
* `foreign import _bodyText :: Response -> Promise String` * `foreign import _bodyText :: Response -> Promise String`
* @type {(_0: HTTPResponse) => Promise<string>} * @type {(_0: HTTPResponse) => () => Promise<string>}
*/ */
export const _bodyText = r => r.text() export const _bodyText = r => () => r.text()
/** /**
* `foreign import _url :: Response -> Effect String` * `foreign import _url :: Response -> Effect String`

12
src/Puppeteer.Page.HTTP.Response.purs
View File

@ -19,21 +19,21 @@ foreign import url :: Response -> Effect String
foreign import status :: Response -> Effect Int foreign import status :: Response -> Effect Int
foreign import statusText :: Response -> Effect String foreign import statusText :: Response -> Effect String
foreign import _bodyBuffer :: Response -> Promise Buffer foreign import _bodyBuffer :: Response -> Effect (Promise Buffer)
foreign import _bodyJson :: Response -> Promise Foreign foreign import _bodyJson :: Response -> Effect (Promise Foreign)
foreign import _bodyText :: Response -> Promise String foreign import _bodyText :: Response -> Effect (Promise String)
foreign import _remoteAddressIp :: Response -> Effect Foreign foreign import _remoteAddressIp :: Response -> Effect Foreign
foreign import _remoteAddressPort :: Response -> Effect Foreign foreign import _remoteAddressPort :: Response -> Effect Foreign
bodyBuffer :: Response -> Aff Buffer bodyBuffer :: Response -> Aff Buffer
bodyBuffer = Promise.toAff <<< _bodyBuffer bodyBuffer = Promise.toAffE <<< _bodyBuffer
bodyJson :: Response -> Aff Foreign bodyJson :: Response -> Aff Foreign
bodyJson = Promise.toAff <<< _bodyJson bodyJson = Promise.toAffE <<< _bodyJson
bodyText :: Response -> Aff String bodyText :: Response -> Aff String
bodyText = Promise.toAff <<< _bodyText bodyText = Promise.toAffE <<< _bodyText
remoteAddressIp :: Response -> Effect (Maybe String) remoteAddressIp :: Response -> Effect (Maybe String)
remoteAddressIp = map (hush <<< runExcept) <<< map readImpl <<< _remoteAddressIp remoteAddressIp = map (hush <<< runExcept) <<< map readImpl <<< _remoteAddressIp

28
src/Puppeteer.Page.HTTP.js
View File

@ -2,42 +2,42 @@ import { Page } from 'puppeteer'
/** /**
* `foreign import _bypassCsp :: Page -> Promise Unit` * `foreign import _bypassCsp :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _bypassCsp = p => p.setBypassCSP(true) export const _bypassCsp = p => () => p.setBypassCSP(true)
/** /**
* `foreign import _unbypassCsp :: Page -> Promise Unit` * `foreign import _unbypassCsp :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _unbypassCsp = p => p.setBypassCSP(false) export const _unbypassCsp = p => () => p.setBypassCSP(false)
/** /**
* `foreign import _enableCache :: Page -> Promise Unit` * `foreign import _enableCache :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _enableCache = p => p.setCacheEnabled(true) export const _enableCache = p => () => p.setCacheEnabled(true)
/** /**
* `foreign import _disableCache :: Page -> Promise Unit` * `foreign import _disableCache :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _disableCache = p => p.setCacheEnabled(false) export const _disableCache = p => () => p.setCacheEnabled(false)
/** /**
* `foreign import _interceptRequests :: Page -> Promise Unit` * `foreign import _interceptRequests :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _interceptRequests = p => p.setRequestInterception(true) export const _interceptRequests = p => () => p.setRequestInterception(true)
/** /**
* `foreign import _uninterceptRequests :: Page -> Promise Unit` * `foreign import _uninterceptRequests :: Page -> Promise Unit`
* @type {(_p: Page) => Promise<void>} * @type {(_p: Page) => () => Promise<void>}
*/ */
export const _uninterceptRequests = p => p.setRequestInterception(false) export const _uninterceptRequests = p => () => p.setRequestInterception(false)
/** /**
* `foreign import _sendExtraHeaders :: Map String String -> Page -> Promise Unit` * `foreign import _sendExtraHeaders :: Map String String -> Page -> Promise Unit`
* @type {(_0: Record<string, string>) => (_1: Page) => Promise<void>} * @type {(_0: Record<string, string>) => (_1: Page) => () => Promise<void>}
*/ */
export const _sendExtraHeaders = h => p => p.setExtraHTTPHeaders(h) export const _sendExtraHeaders = h => p => () => p.setExtraHTTPHeaders(h)

29
src/Puppeteer.Page.HTTP.purs
View File

@ -14,6 +14,7 @@ import Prelude
import Control.Promise (Promise) import Control.Promise (Promise)
import Control.Promise as Promise import Control.Promise as Promise
import Data.Map (Map) import Data.Map (Map)
import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Foreign (Foreign) import Foreign (Foreign)
import Puppeteer.Base (Context(..), Page, closeContext) import Puppeteer.Base (Context(..), Page, closeContext)
@ -21,16 +22,16 @@ import Puppeteer.FFI as FFI
import Puppeteer.HTTP (Request) import Puppeteer.HTTP (Request)
import Puppeteer.Page.Event as Event import Puppeteer.Page.Event as Event
foreign import _bypassCsp :: Page -> Promise Unit foreign import _bypassCsp :: Page -> Effect (Promise Unit)
foreign import _unbypassCsp :: Page -> Promise Unit foreign import _unbypassCsp :: Page -> Effect (Promise Unit)
foreign import _enableCache :: Page -> Promise Unit foreign import _enableCache :: Page -> Effect (Promise Unit)
foreign import _disableCache :: Page -> Promise Unit foreign import _disableCache :: Page -> Effect (Promise Unit)
foreign import _interceptRequests :: Page -> Promise Unit foreign import _interceptRequests :: Page -> Effect (Promise Unit)
foreign import _uninterceptRequests :: Page -> Promise Unit foreign import _uninterceptRequests :: Page -> Effect (Promise Unit)
foreign import _sendExtraHeaders :: Foreign -> Page -> Promise Unit foreign import _sendExtraHeaders :: Foreign -> Page -> Effect (Promise Unit)
type BypassCSPHint :: Symbol type BypassCSPHint :: Symbol
type BypassCSPHint = "CSP is being bypassed. Invoking `Puppeteer.closeContext` will restore default CSP behavior." type BypassCSPHint = "CSP is being bypassed. Invoking `Puppeteer.closeContext` will restore default CSP behavior."
@ -43,18 +44,18 @@ type InterceptRequestsHint = "Requests are being intercepted. Invoking `Puppetee
bypassCsp :: Page -> Aff (Context BypassCSPHint) bypassCsp :: Page -> Aff (Context BypassCSPHint)
bypassCsp p = do bypassCsp p = do
Promise.toAff $ _bypassCsp p Promise.toAffE $ _bypassCsp p
pure $ Context (\_ -> Promise.toAff $ _unbypassCsp p) pure $ Context (\_ -> Promise.toAffE $ _unbypassCsp p)
disableCache :: Page -> Aff (Context DisableCacheHint) disableCache :: Page -> Aff (Context DisableCacheHint)
disableCache p = do disableCache p = do
Promise.toAff $ _disableCache p Promise.toAffE $ _disableCache p
pure $ Context (\_ -> Promise.toAff $ _enableCache p) pure $ Context (\_ -> Promise.toAffE $ _enableCache p)
interceptRequests :: Page -> Aff (Context InterceptRequestsHint) interceptRequests :: Page -> Aff (Context InterceptRequestsHint)
interceptRequests p = do interceptRequests p = do
Promise.toAff $ _interceptRequests p Promise.toAffE $ _interceptRequests p
pure (Context $ \_ -> Promise.toAff $ _uninterceptRequests p) pure (Context $ \_ -> Promise.toAffE $ _uninterceptRequests p)
interceptNextRequest :: (Context InterceptRequestsHint -> Request -> Aff Unit) -> Page -> Aff Unit interceptNextRequest :: (Context InterceptRequestsHint -> Request -> Aff Unit) -> Page -> Aff Unit
interceptNextRequest cb p = do interceptNextRequest cb p = do
@ -65,4 +66,4 @@ interceptNextRequest cb p = do
pure unit pure unit
sendExtraHeaders :: Map String String -> Page -> Aff Unit sendExtraHeaders :: Map String String -> Page -> Aff Unit
sendExtraHeaders h = Promise.toAff <<< _sendExtraHeaders (FFI.mapToRecord h) sendExtraHeaders h = Promise.toAffE <<< _sendExtraHeaders (FFI.mapToRecord h)

16
src/Puppeteer.Page.WaitFor.js
View File

@ -10,28 +10,28 @@ export const _navigation = ev => p => () =>
/** /**
* `foreign import _networkIdle :: Number -> Foreign -> Page -> Promise Unit` * `foreign import _networkIdle :: Number -> Foreign -> Page -> Promise Unit`
* @type {(_1: number) => (_2: Page) => Promise<void>} * @type {(_1: number) => (_2: Page) => () => Promise<void>}
*/ */
export const _networkIdle = idleTime => p => export const _networkIdle = idleTime => p => () =>
p.waitForNetworkIdle({ idleTime, timeout: 0 }) p.waitForNetworkIdle({ idleTime, timeout: 0 })
/** /**
* `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)` * `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)`
* @type {(_0: string) => (_2: Page) => Promise<ElementHandle<Element> | null>} * @type {(_0: string) => (_2: Page) => () => Promise<ElementHandle<Element> | null>}
*/ */
export const _selectorToExist = sel => p => export const _selectorToExist = sel => p => () =>
p.waitForSelector(sel, { timeout: 0 }) p.waitForSelector(sel, { timeout: 0 })
/** /**
* `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)` * `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)`
* @type {(_0: string) => (_2: Page) => Promise<ElementHandle<Element> | null>} * @type {(_0: string) => (_2: Page) => () => Promise<ElementHandle<Element> | null>}
*/ */
export const _selector = sel => p => export const _selector = sel => p => () =>
p.waitForSelector(sel, { visible: true, timeout: 0 }) p.waitForSelector(sel, { visible: true, timeout: 0 })
/** /**
* `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)` * `foreign import _selector :: forall a. String -> Number -> Page -> Promise (Handle a)`
* @type {(_0: string) => (_2: Page) => Promise<void>} * @type {(_0: string) => (_2: Page) => () => Promise<void>}
*/ */
export const _selectorToBeHidden = sel => p => export const _selectorToBeHidden = sel => p => () =>
p.waitForSelector(sel, { hidden: true, timeout: 0 }).then(() => {}) p.waitForSelector(sel, { hidden: true, timeout: 0 }).then(() => {})

16
src/Puppeteer.Page.WaitFor.purs
View File

@ -28,10 +28,10 @@ type WaitingForNavigationHint :: Symbol
type WaitingForNavigationHint = "`Puppeteer.Page.WaitFor.navigation` was initiated, waiting for your code to trigger the navigation. Invoke `Puppeteer.closeContext` to block once the navigation has been initiated." type WaitingForNavigationHint = "`Puppeteer.Page.WaitFor.navigation` was initiated, waiting for your code to trigger the navigation. Invoke `Puppeteer.closeContext` to block once the navigation has been initiated."
foreign import _navigation :: Foreign -> Page -> Effect (Promise Unit) foreign import _navigation :: Foreign -> Page -> Effect (Promise Unit)
foreign import _networkIdle :: Number -> Page -> Promise Unit foreign import _networkIdle :: Number -> Page -> Effect (Promise Unit)
foreign import _selector :: forall a. String -> Page -> Promise (Handle a) foreign import _selector :: forall a. String -> Page -> Effect (Promise (Handle a))
foreign import _selectorToExist :: forall a. String -> Page -> Promise (Handle a) foreign import _selectorToExist :: forall a. String -> Page -> Effect (Promise (Handle a))
foreign import _selectorToBeHidden :: String -> Page -> Promise Unit foreign import _selectorToBeHidden :: String -> Page -> Effect (Promise Unit)
navigation :: LifecycleEvent -> Page -> Effect (Context WaitingForNavigationHint) navigation :: LifecycleEvent -> Page -> Effect (Context WaitingForNavigationHint)
navigation ev p = do navigation ev p = do
@ -39,13 +39,13 @@ navigation ev p = do
pure $ Context (\_ -> Promise.toAff $ promise) pure $ Context (\_ -> Promise.toAff $ promise)
networkIdle :: NetworkIdleFor -> Page -> Aff Unit networkIdle :: NetworkIdleFor -> Page -> Aff Unit
networkIdle i = Promise.toAff <<< _networkIdle (unwrap $ unwrap i) networkIdle i = Promise.toAffE <<< _networkIdle (unwrap $ unwrap i)
selector :: forall s e. Selector s e => s -> Page -> Aff (Handle e) selector :: forall s e. Selector s e => s -> Page -> Aff (Handle e)
selector s = Promise.toAff <<< _selectorToExist (toCSS s) selector s = Promise.toAffE <<< _selectorToExist (toCSS s)
selectorToBeVisible :: forall s e. Selector s e => s -> Page -> Aff (Handle e) selectorToBeVisible :: forall s e. Selector s e => s -> Page -> Aff (Handle e)
selectorToBeVisible s = Promise.toAff <<< _selector (toCSS s) selectorToBeVisible s = Promise.toAffE <<< _selector (toCSS s)
selectorToBeHidden :: forall s e. Selector s e => s -> Page -> Aff Unit selectorToBeHidden :: forall s e. Selector s e => s -> Page -> Aff Unit
selectorToBeHidden s = Promise.toAff <<< _selectorToBeHidden (toCSS s) selectorToBeHidden s = Promise.toAffE <<< _selectorToBeHidden (toCSS s)

56
src/Puppeteer.Page.js
View File

@ -15,81 +15,69 @@ export const mouse = p => () => p.mouse
/** @type {(_: Page) => () => Touchscreen} */ /** @type {(_: Page) => () => Touchscreen} */
export const touchscreen = p => () => p.touchscreen export const touchscreen = p => () => p.touchscreen
/** @type {(_: Browser | BrowserContext) => Promise<Page>} */ /** @type {(_: Browser | BrowserContext) => () => Promise<Page>} */
export const _newPage = b => b.newPage() export const _newPage = b => () => b.newPage()
/** @type {(_: Browser | BrowserContext) => Promise<Array<Page>>} */ /** @type {(_: Browser | BrowserContext) => () => Promise<Array<Page>>} */
export const _all = b => b.pages() export const _all = b => () => b.pages()
/** /**
* `foreign import _findAll :: String -> Page -> Promise (Array (Handle HTMLElement))` * @type {(_1: string) => (_2: Page) => () => Promise<Array<ElementHandle<any>>>}
* @type {(_1: string) => (_2: Page) => Promise<Array<ElementHandle<any>>>}
*/ */
export const _findAll = s => p => p.$$(s) export const _findAll = s => p => () => p.$$(s)
/** /**
* `foreign import _addScriptTag :: Foreign -> Page -> Promise (Handle HTMLScriptElement)` * @type {(_1: import("puppeteer").FrameAddScriptTagOptions) => (_2: Page) => () => Promise<ElementHandle<any>>}
* @type {(_1: import("puppeteer").FrameAddScriptTagOptions) => (_2: Page) => Promise<ElementHandle<any>>}
*/ */
export const _addScriptTag = o => p => p.addScriptTag(o) export const _addScriptTag = o => p => () => p.addScriptTag(o)
/** /**
* `foreign import _addStyleTag :: Foreign -> Page -> Promise (Handle Foreign)` * @type {(_1: import("puppeteer").FrameAddStyleTagOptions) => (_2: Page) => () => Promise<ElementHandle<any>>}
* @type {(_1: import("puppeteer").FrameAddStyleTagOptions) => (_2: Page) => Promise<ElementHandle<any>>}
*/ */
export const _addStyleTag = o => p => p.addStyleTag(o) export const _addStyleTag = o => p => () => p.addStyleTag(o)
/** /**
* `foreign import _bringToFront :: Page -> Promise Unit` * @type {(_1: Page) => () => Promise<void>}
* @type {(_1: Page) => Promise<void>}
*/ */
export const _bringToFront = p => p.bringToFront() export const _bringToFront = p => () => p.bringToFront()
/** /**
* `foreign import _close :: forall r. Page -> Promise Unit` * @type {(_0: Page) => () => Promise<void>}
* @type {(_0: Page) => Promise<void>}
*/ */
export const _close = p => p.close() export const _close = p => () => p.close()
/** /**
* `foreign import _isClosed :: forall r. Page -> Effect Boolean`
* @type {(_0: Page) => () => boolean} * @type {(_0: Page) => () => boolean}
*/ */
export const isClosed = p => () => p.isClosed() export const isClosed = p => () => p.isClosed()
/** /**
* `foreign import _content :: Page -> Promise String` * @type {(_0: Page) => () => Promise<string>}
* @type {(_0: Page) => Promise<string>}
*/ */
export const _content = p => p.content() export const _content = p => () => p.content()
/** /**
* `foreign import _setContent :: String -> Foreign -> Page -> Promise Unit` * @type {(_0: string) => (_2: import("puppeteer").PuppeteerLifeCycleEvent) => (_4: Page) => () => Promise<void>}
* @type {(_0: string) => (_2: import("puppeteer").PuppeteerLifeCycleEvent) => (_4: Page) => Promise<void>}
*/ */
export const _setContent = html => ev => p => export const _setContent = html => ev => p => () =>
p.setContent(html, { timeout: 0, waitUntil: ev }) p.setContent(html, { timeout: 0, waitUntil: ev })
/** /**
* `foreign import _setViewport :: Viewport -> Page -> Promise Unit` * @type {(_0: import("puppeteer").Viewport) => (_4: Page) => () => Promise<void>}
* @type {(_0: import("puppeteer").Viewport) => (_4: Page) => Promise<void>}
*/ */
export const _setViewport = v => p => p.setViewport(v) export const _setViewport = v => p => () => p.setViewport(v)
/** /**
* `foreign import _title :: Page -> Promise String` * @type {(_4: Page) => () => Promise<string>}
* @type {(_4: Page) => Promise<string>}
*/ */
export const _title = p => p.title() export const _title = p => () => p.title()
/** /**
* `foreign import _url :: Page -> Effect URL`
* @type {(_4: Page) => () => string} * @type {(_4: Page) => () => string}
*/ */
export const url = p => () => p.url() export const url = p => () => p.url()
/** /**
* `foreign import _viewport :: Page -> Nullable Viewport`
* @type {(_0: Page) => import("puppeteer").Viewport | null} * @type {(_0: Page) => import("puppeteer").Viewport | null}
*/ */
export const _viewport = p => p.viewport() export const _viewport = p => p.viewport()

44
src/Puppeteer.Page.purs
View File

@ -102,56 +102,56 @@ foreign import mouse :: Page -> Effect Unit
foreign import touchscreen :: Page -> Effect Unit foreign import touchscreen :: Page -> Effect Unit
foreign import isClosed :: Page -> Effect Boolean foreign import isClosed :: Page -> Effect Boolean
foreign import _newPage :: Foreign -> Promise Page foreign import _newPage :: Foreign -> Effect (Promise Page)
foreign import _all :: Foreign -> Promise (Array Page) foreign import _all :: Foreign -> Effect (Promise (Array Page))
foreign import _findAll :: forall a. String -> Page -> Promise (Array (Handle a)) foreign import _findAll :: forall a. String -> Page -> Effect (Promise (Array (Handle a)))
foreign import _addScriptTag :: Foreign -> Page -> Promise (Handle HTMLScriptElement) foreign import _addScriptTag :: Foreign -> Page -> Effect (Promise (Handle HTMLScriptElement))
foreign import _addStyleTag :: Foreign -> Page -> Promise (Handle Foreign) foreign import _addStyleTag :: Foreign -> Page -> Effect (Promise (Handle Foreign))
foreign import _bringToFront :: Page -> Promise Unit foreign import _bringToFront :: Page -> Effect (Promise Unit)
foreign import _close :: Page -> Promise Unit foreign import _close :: Page -> Effect (Promise Unit)
foreign import _content :: Page -> Promise String foreign import _content :: Page -> Effect (Promise String)
foreign import _setContent :: String -> Foreign -> Page -> Promise Unit foreign import _setContent :: String -> Foreign -> Page -> Effect (Promise Unit)
foreign import _setViewport :: Foreign -> Page -> Promise Unit foreign import _setViewport :: Foreign -> Page -> Effect (Promise Unit)
foreign import _title :: Page -> Promise String foreign import _title :: Page -> Effect (Promise String)
foreign import _viewport :: Page -> Foreign foreign import _viewport :: Page -> Foreign
new :: forall b. PageProducer b => b -> Aff Page new :: forall b. PageProducer b => b -> Aff Page
new = Promise.toAff <<< _newPage <<< unsafeToForeign new = Promise.toAffE <<< _newPage <<< unsafeToForeign
all :: forall b. PageProducer b => b -> Aff (Array Page) all :: forall b. PageProducer b => b -> Aff (Array Page)
all = Promise.toAff <<< _all <<< unsafeToForeign all = Promise.toAffE <<< _all <<< unsafeToForeign
findAll :: forall s e. Selector s e => s -> Page -> Aff (Array (Handle e)) findAll :: forall s e. Selector s e => s -> Page -> Aff (Array (Handle e))
findAll s = Promise.toAff <<< _findAll (toCSS s) findAll s = Promise.toAffE <<< _findAll (toCSS s)
findFirst :: forall s e. Selector s e => s -> Page -> Aff (Maybe (Handle e)) findFirst :: forall s e. Selector s e => s -> Page -> Aff (Maybe (Handle e))
findFirst s = map Array.head <<< findAll s findFirst s = map Array.head <<< findAll s
addScriptTag :: AddScript -> Page -> Aff (Handle HTMLScriptElement) addScriptTag :: AddScript -> Page -> Aff (Handle HTMLScriptElement)
addScriptTag a = Promise.toAff <<< _addScriptTag (prepareAddScript a) addScriptTag a = Promise.toAffE <<< _addScriptTag (prepareAddScript a)
addStyleTag :: forall s e. AddStyle s e => s -> Page -> Aff (Handle e) addStyleTag :: forall s e. AddStyle s e => s -> Page -> Aff (Handle e)
addStyleTag a h = do addStyleTag a h = do
t <- Promise.toAff $ _addStyleTag (prepareAddStyle a) h t <- Promise.toAffE $ _addStyleTag (prepareAddStyle a) h
pure $ unsafeCoerceHandle t pure $ unsafeCoerceHandle t
bringToFront :: Page -> Aff Unit bringToFront :: Page -> Aff Unit
bringToFront = Promise.toAff <<< _bringToFront bringToFront = Promise.toAffE <<< _bringToFront
close :: Page -> Aff Unit close :: Page -> Aff Unit
close = Promise.toAff <<< _close close = Promise.toAffE <<< _close
content :: Page -> Aff String content :: Page -> Aff String
content = Promise.toAff <<< _content content = Promise.toAffE <<< _content
setContent :: String -> LifecycleEvent -> Page -> Aff Unit setContent :: String -> LifecycleEvent -> Page -> Aff Unit
setContent s ev = Promise.toAff <<< _setContent s (duplexWrite duplexLifecycleEvent ev) setContent s ev = Promise.toAffE <<< _setContent s (duplexWrite duplexLifecycleEvent ev)
setViewport :: Viewport -> Page -> Aff Unit setViewport :: Viewport -> Page -> Aff Unit
setViewport vp = Promise.toAff <<< _setViewport (duplexWrite duplexViewport vp) setViewport vp = Promise.toAffE <<< _setViewport (duplexWrite duplexViewport vp)
title :: Page -> Aff String title :: Page -> Aff String
title = Promise.toAff <<< _title title = Promise.toAffE <<< _title
viewport :: Page -> Maybe Viewport viewport :: Page -> Maybe Viewport
viewport = hush <<< runExcept <<< readImpl <<< _viewport viewport = hush <<< runExcept <<< readImpl <<< _viewport

16
src/Puppeteer.Plugin.Captcha.js
View File

@ -10,14 +10,14 @@ import Captcha from 'puppeteer-extra-plugin-recaptcha'
/** @type {(_: PluginOptions) => (_: PuppeteerExtra) => () => PuppeteerExtra} */ /** @type {(_: PluginOptions) => (_: PuppeteerExtra) => () => PuppeteerExtra} */
export const _captcha = o => p => () => p.use(Captcha(o)) export const _captcha = o => p => () => p.use(Captcha(o))
/** @type {(_: Page) => Promise<{captchas: CaptchaInfo[], filtered: unknown[]}>} */ /** @type {(_: Page) => () => Promise<{captchas: CaptchaInfo[], filtered: unknown[]}>} */
export const _findCaptchas = p => p.findRecaptchas() export const _findCaptchas = p => () => p.findRecaptchas()
/** @type {(_: Page) => (_: CaptchaInfo[]) => Promise<{solutions: CaptchaSolution[]}>} */ /** @type {(_: Page) => (_: CaptchaInfo[]) => () => Promise<{solutions: CaptchaSolution[]}>} */
export const _getSolutions = p => cs => p.getRecaptchaSolutions(cs) export const _getSolutions = p => cs => () => p.getRecaptchaSolutions(cs)
/** @type {(_: Page) => (_: CaptchaSolution[]) => Promise<{solved: CaptchaSolved[]}>} */ /** @type {(_: Page) => (_: CaptchaSolution[]) => () => Promise<{solved: CaptchaSolved[]}>} */
export const _enterSolutions = p => cs => p.enterRecaptchaSolutions(cs) export const _enterSolutions = p => cs => () => p.enterRecaptchaSolutions(cs)
/** @type {(_: Page) => Promise<{captchas: CaptchaInfo[], filtered: unknown[], solutions: CaptchaSolution[], solved: CaptchaSolved[]}>} */ /** @type {(_: Page) => () => Promise<{captchas: CaptchaInfo[], filtered: unknown[], solutions: CaptchaSolution[], solved: CaptchaSolved[]}>} */
export const _solveCaptchas = p => p.solveRecaptchas() export const _solveCaptchas = p => () => p.solveRecaptchas()

16
src/Puppeteer.Plugin.Captcha.purs
View File

@ -256,10 +256,10 @@ duplexInfo =
foreign import data CaptchaPlugin :: Type foreign import data CaptchaPlugin :: Type
foreign import _captcha :: forall (r :: Row Type). Foreign -> Puppeteer r -> Effect (Puppeteer (captcha :: CaptchaPlugin | r)) foreign import _captcha :: forall (r :: Row Type). Foreign -> Puppeteer r -> Effect (Puppeteer (captcha :: CaptchaPlugin | r))
foreign import _findCaptchas :: Page -> Promise Foreign foreign import _findCaptchas :: Page -> Effect (Promise Foreign)
foreign import _getSolutions :: Page -> Foreign -> Promise Foreign foreign import _getSolutions :: Page -> Foreign -> Effect (Promise Foreign)
foreign import _enterSolutions :: Page -> Foreign -> Promise Foreign foreign import _enterSolutions :: Page -> Foreign -> Effect (Promise Foreign)
foreign import _solveCaptchas :: Page -> Promise Foreign foreign import _solveCaptchas :: Page -> Effect (Promise Foreign)
read :: forall @a. ReadForeign a => Foreign -> Either Error a read :: forall @a. ReadForeign a => Foreign -> Either Error a
read = lmap (error <<< show) <<< runExcept <<< readImpl read = lmap (error <<< show) <<< runExcept <<< readImpl
@ -282,24 +282,24 @@ infos f = do
findCaptchas :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Aff (Array CaptchaInfoMaybeFiltered) findCaptchas :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Aff (Array CaptchaInfoMaybeFiltered)
findCaptchas _ p = do findCaptchas _ p = do
f <- Promise.toAff $ _findCaptchas p f <- Promise.toAffE $ _findCaptchas p
liftEither $ infos f liftEither $ infos f
getSolutions :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Array CaptchaInfo -> Aff (Array CaptchaSolution) getSolutions :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Array CaptchaInfo -> Aff (Array CaptchaSolution)
getSolutions _ p is = do getSolutions _ p is = do
f <- Promise.toAff $ _getSolutions p (writeImpl $ duplexWrite duplexInfo <$> is) f <- Promise.toAffE $ _getSolutions p (writeImpl $ duplexWrite duplexInfo <$> is)
{ solutions } <- liftEither $ read @({ solutions :: Array Foreign }) f { solutions } <- liftEither $ read @({ solutions :: Array Foreign }) f
liftEither $ for solutions $ duplexRead duplexSoln liftEither $ for solutions $ duplexRead duplexSoln
enterSolutions :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Array CaptchaSolution -> Aff (Array CaptchaSolved) enterSolutions :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Array CaptchaSolution -> Aff (Array CaptchaSolved)
enterSolutions _ p sols = do enterSolutions _ p sols = do
f <- Promise.toAff $ _enterSolutions p (writeImpl $ duplexWrite duplexSoln <$> sols) f <- Promise.toAffE $ _enterSolutions p (writeImpl $ duplexWrite duplexSoln <$> sols)
{ solved } <- liftEither $ read @({ solved :: Array Foreign }) f { solved } <- liftEither $ read @({ solved :: Array Foreign }) f
liftEither $ for solved $ duplexRead duplexSolved liftEither $ for solved $ duplexRead duplexSolved
solveCaptchas :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Aff SolveResult solveCaptchas :: forall (r :: Row Type). Puppeteer (captcha :: CaptchaPlugin | r) -> Page -> Aff SolveResult
solveCaptchas _ p = do solveCaptchas _ p = do
f <- Promise.toAff $ _solveCaptchas p f <- Promise.toAffE $ _solveCaptchas p
{ solved, solutions } <- liftEither $ read @({ solved :: Array Foreign, solutions :: Array Foreign }) f { solved, solutions } <- liftEither $ read @({ solved :: Array Foreign, solutions :: Array Foreign }) f
captchas <- liftEither $ infos f captchas <- liftEither $ infos f
liftEither do liftEither do