klntsky/purescript-playwright
1
1
Fork 0
mirror of https://github.com/klntsky/purescript-playwright.git synced 2024-11-22 13:23:01 +03:00
Code Issues Projects Releases Wiki Activity

prettier, purs, explicit imports, format ci

Browse Source
This commit is contained in:
fetsorn 2024-07-12 00:54:22 +04:00
parent 6d0aba0f34
commit eecec566f5
24 changed files with 502 additions and 383 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
.github/workflows/ci.yml vendored
View File

@ -11,11 +11,29 @@ jobs:
build:
runs-on: ubuntu-latest
steps:
- uses: actions/checkout@v2
- name: Run tests
run: |
PATH="$PATH:./node_modules/.bin/"
npm install
npm install spago@next purescript
npx playwright install --with-deps chromium
spago test
- uses: actions/checkout@v3
with:
ref: ${{ github.head_ref }}
- uses: actions/setup-node@v3
with:
node-version: "18.x"
- run: npm install
- run: npm install purescript
- run: npx playwright install --with-deps chromium
- run: npx spago@next test
format:
runs-on: ubuntu-latest
steps:
- uses: actions/checkout@v3
with:
ref: ${{ github.head_ref }}
- uses: actions/setup-node@v3
with:
node-version: "18.x"
- run: npm run format
- name: Commit changes
uses: stefanzweifel/git-auto-commit-action@v4
with:
commit_message: Apply formatting changes
branch: ${{ github.head_ref }}

3
package.json
View File

@ -10,7 +10,8 @@
"playwright": "^1.45.1"
},
"scripts": {
"test": "pulp test"
"test": "npx spago@next test",
"format": "npx prettier --write src/**/*.js test/**/*.js; npx purs-tidy format-in-place src/**/*.purs test/**/*.purs"
},
"repository": {
"type": "git",

22
src/Playwright.js
View File

@ -1,21 +1,21 @@
/* global exports */
export const exposeBinding_ = x => name => cb => opts => () => {
export const exposeBinding_ = (x) => (name) => (cb) => (opts) => () => {
return x.exposeBinding(
name,
function (info, arg) {
return cb(info)(arg)()
return cb(info)(arg)();
},
opts
)
}
opts,
);
};
export const onResponse = function (page) {
return function (cb) {
return function () {
page.on('response', function (response) {
cb(response)();
});
};
return function (cb) {
return function () {
page.on("response", function (response) {
cb(response)();
});
};
};
};

304
src/Playwright.purs
View File

@ -1,57 +1,55 @@
module Playwright
( launch
, connect
, connectOverCDP
, close
, contexts
, context
, isConnected
, version
, newPage
, goForward
, goBack
, goto
, addCookies
, cookies
, hover
, innerHTML
, innerText
, isClosed
, keyboard
, mainFrame
, name
, query
, queryMany
, screenshot
, textContent
, url
, addInitScript
, clearCookies
, click
, content
, dblclick
, evaluate
, evaluateHandle
, waitForNavigation
, waitForRequest
, waitForResponse
, waitForSelector
, waitForFunction
, waitForLoadState
, waitForTimeout
, pdf
, setInputFiles
, setViewportSize
, title
, exposeBinding
, fill
, focus
, onResponse
, connect
, module Playwright.Data
, module Playwright.Options
)
where
( launch
, connect
, connectOverCDP
, close
, contexts
, context
, isConnected
, version
, newPage
, goForward
, goBack
, goto
, addCookies
, cookies
, hover
, innerHTML
, innerText
, isClosed
, keyboard
, mainFrame
, name
, query
, queryMany
, screenshot
, textContent
, url
, addInitScript
, clearCookies
, click
, content
, dblclick
, evaluate
, evaluateHandle
, waitForNavigation
, waitForRequest
, waitForResponse
, waitForSelector
, waitForFunction
, waitForLoadState
, waitForTimeout
, pdf
, setInputFiles
, setViewportSize
, title
, exposeBinding
, fill
, focus
, onResponse
, module Playwright.Data
, module Playwright.Options
) where
import Playwright.Options
@ -60,34 +58,43 @@ import Data.String.Regex (Regex)
import Data.Unit (unit)
import Effect (Effect)
import Effect.Aff (Aff)
import Foreign (Foreign, unsafeToForeign)
import Foreign (Foreign)
import Literals.Null (Null)
import Node.Buffer (Buffer)
import Playwright.Data (Browser, BrowserContext, BrowserType, ConsoleMessage, Dialog, Download, ElementHandle, ElementState, FileChooser, Frame, JSHandle, Keyboard, Modifier, Mouse, MouseButton, Page, Raf, Request, Response, Route, ScreenshotType, Selector(..), Selectors, URL(..), WaitUntil, Worker, alt, attached, chromium, control, detached, domcontentloaded, firefox, hidden, jpg, left, load, meta, middle, networkidle, png, raf, right, shift, visible, webkit)
import Playwright.Internal (effCall, effProp, affCall)
import Prelude (Unit, ($))
import Untagged.Castable (class Castable)
import Untagged.Union (type (|+|), UndefinedOr)
import Untagged.Union (type (|+|))
import Playwright.Types (Cookie)
foreign import onResponse :: Page -> (Response -> Effect Unit) -> Effect Unit
fill
:: forall o
. Castable o FillOptions
=> Page -> Selector -> String -> o -> Aff Unit
. Castable o FillOptions
=> Page
-> Selector
-> String
-> o
-> Aff Unit
fill = affCall "fill" \_ -> fill
focus
:: forall o
. Castable o FocusOptions
=> Page -> Selector -> o -> Aff Unit
. Castable o FocusOptions
=> Page
-> Selector
-> o
-> Aff Unit
focus = affCall "focus" \_ -> focus
launch
:: forall o
. Castable o LaunchOptions
=> BrowserType -> o -> Aff Browser
. Castable o LaunchOptions
=> BrowserType
-> o
-> Aff Browser
launch =
affCall "launch" \_ -> launch
@ -102,10 +109,6 @@ connect
-> Aff Browser
connect = affCall "connect" \_ -> connect
type ConnectOptions =
{ timeout :: UndefinedOr Number
}
connectOverCDP
:: forall o
. Castable o ConnectOverCDPOptions
@ -116,14 +119,11 @@ connectOverCDP
connectOverCDP =
affCall "connectOverCDP" \_ -> connectOverCDP
type ConnectOverCDPOptions =
{ timeout :: UndefinedOr Number
}
close
:: forall x
. Castable x (Browser |+| BrowserContext |+| Page)
=> x -> Aff Unit
. Castable x (Browser |+| BrowserContext |+| Page)
=> x
-> Aff Unit
close =
affCall "close" \_ -> close
@ -141,31 +141,40 @@ version =
newPage
:: forall x o
. Castable x (Browser |+| BrowserContext)
. Castable x (Browser |+| BrowserContext)
=> Castable o NewpageOptions
=> x -> o -> Aff Page
=> x
-> o
-> Aff Page
newPage =
affCall "newPage" \_ -> newPage
goForward
:: forall o
. Castable o GoOptions
=> Page -> o -> Aff (Null |+| Response)
. Castable o GoOptions
=> Page
-> o
-> Aff (Null |+| Response)
goForward =
affCall "goForward" \_ -> goForward
goBack
:: forall o
. Castable o GoOptions
=> Page -> o -> Aff (Null |+| Response)
goBack =
. Castable o GoOptions
=> Page
-> o
-> Aff (Null |+| Response)
goBack =
affCall "goBack" \_ -> goBack
goto
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o GotoOptions
=> x -> URL -> o -> Aff (Null |+| Response)
=> x
-> URL
-> o
-> Aff (Null |+| Response)
goto =
affCall "goto" \_ -> goto
@ -187,29 +196,34 @@ addCookies =
hover
:: forall x o
. Castable x (Page |+| Frame |+| ElementHandle)
. Castable x (Page |+| Frame |+| ElementHandle)
=> Castable o HoverOptions
=> x -> o -> Aff Unit
=> x
-> o
-> Aff Unit
hover =
affCall "hover" \_ -> hover
innerHTML
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o InnerHTMLOptions
=> x -> Selector -> o -> Aff String
=> x
-> Selector
-> o
-> Aff String
innerHTML =
affCall "innerHTML" \_ -> innerHTML
innerText
:: forall x o
. Castable o InnerTextOptions
. Castable o InnerTextOptions
=> Castable x (Page |+| Frame |+| ElementHandle)
=> x
-> Selector
-> o
-> Aff String
innerText =
innerText =
affCall "innerText" \_ -> innerText
isClosed :: Page -> Effect Boolean
@ -227,37 +241,45 @@ name = effCall "name" \_ -> name
-- | `sth.$(selector)`
query
:: forall x
. Castable x (ElementHandle |+| Page |+| Frame)
=> x -> Selector -> Aff (Null |+| ElementHandle)
. Castable x (ElementHandle |+| Page |+| Frame)
=> x
-> Selector
-> Aff (Null |+| ElementHandle)
query =
affCall "$" \_ -> query
-- | `sth.$$(selector)`
queryMany
:: forall x
. Castable x (ElementHandle |+| Page |+| Frame)
=> x -> Selector -> Aff (Array ElementHandle)
. Castable x (ElementHandle |+| Page |+| Frame)
=> x
-> Selector
-> Aff (Array ElementHandle)
queryMany =
affCall "$$" \_ -> queryMany
screenshot
:: forall x o
. Castable x (ElementHandle |+| Page)
. Castable x (ElementHandle |+| Page)
=> Castable o ScreenshotOptions
=> x -> o -> Aff Buffer
=> x
-> o
-> Aff Buffer
screenshot =
affCall "screenshot" \_ -> screenshot
textContent
:: forall x
. Castable x (Page |+| Frame |+| ElementHandle)
=> x -> Selector -> Aff (Null |+| String)
. Castable x (Page |+| Frame |+| ElementHandle)
=> x
-> Selector
-> Aff (Null |+| String)
textContent =
affCall "textContent" \_ -> textContent
url
:: forall x
. Castable x (Page |+| Frame |+| Download |+| Request |+| Response |+| Worker)
. Castable x (Page |+| Frame |+| Download |+| Request |+| Response |+| Worker)
=> x
-> Effect URL
url =
@ -265,7 +287,7 @@ url =
addInitScript
:: forall x o
. Castable x (Page |+| BrowserContext)
. Castable x (Page |+| BrowserContext)
=> Castable o AddInitScriptOptions
=> x
-> o
@ -279,7 +301,7 @@ clearCookies =
click
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o ClickOptions
=> x
-> Selector
@ -290,7 +312,7 @@ click =
content
:: forall x
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> x
-> Aff String
content =
@ -298,7 +320,7 @@ content =
dblclick
:: forall x o
. Castable x (Page |+| Frame |+| ElementHandle)
. Castable x (Page |+| Frame |+| ElementHandle)
=> Castable o ClickOptions
=> x
-> Selector
@ -309,7 +331,7 @@ dblclick =
evaluate
:: forall x
. Castable x (Page |+| Frame |+| Worker |+| JSHandle)
. Castable x (Page |+| Frame |+| Worker |+| JSHandle)
=> x
-> String
-- ^ Function to be evaluated in browser context
@ -319,7 +341,7 @@ evaluate =
evaluateHandle
:: forall x
. Castable x (Page |+| Frame |+| Worker |+| JSHandle)
. Castable x (Page |+| Frame |+| Worker |+| JSHandle)
=> x
-> String
-- ^ Function to be evaluated in browser context
@ -329,7 +351,7 @@ evaluateHandle =
waitForNavigation
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o WaitForNavigationOptions
=> x
-> o
@ -339,7 +361,7 @@ waitForNavigation =
waitForRequest
:: forall url o
. Castable url (URL |+| Regex |+| URL -> Boolean)
. Castable url (URL |+| Regex |+| URL -> Boolean)
=> Castable o WaitForRequestOptions
=> Page
-> url
@ -349,7 +371,7 @@ waitForRequest = affCall "waitForRequest" \_ -> waitForRequest
waitForResponse
:: forall url o
. Castable url (URL |+| Regex |+| URL -> Boolean)
. Castable url (URL |+| Regex |+| URL -> Boolean)
=> Castable o WaitForResponseOptions
=> Page
-> url
@ -359,7 +381,7 @@ waitForResponse = affCall "waitForResponse" \_ -> waitForResponse
waitForSelector
:: forall x o
. Castable x (Page |+| Frame |+| ElementHandle)
. Castable x (Page |+| Frame |+| ElementHandle)
=> Castable o WaitForSelectorOptions
=> x
-> Selector
@ -369,7 +391,7 @@ waitForSelector = affCall "waitForSelector" \_ -> waitForSelector
waitForFunction
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o WaitForFunctionOptions
=> x
-> String
@ -378,11 +400,11 @@ waitForFunction
-> Aff JSHandle
waitForFunction x s o = waitForFunction' x s unit o
where
waitForFunction' = affCall "waitForFunction" \_ -> waitForFunction'
waitForFunction' = affCall "waitForFunction" \_ -> waitForFunction'
waitForLoadState
:: forall x o
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> Castable o WaitForLoadStateOptions
=> x
-> WaitUntil
@ -392,7 +414,7 @@ waitForLoadState = affCall "waitForLoadState" \_ -> waitForLoadState
waitForTimeout
:: forall x
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> x
-> Int
-> Aff Unit
@ -400,7 +422,7 @@ waitForTimeout = affCall "waitForTimeout" \_ -> waitForTimeout
pdf
:: forall o
. Castable o PdfOptions
. Castable o PdfOptions
=> Page
-> o
-> Aff Buffer
@ -408,20 +430,22 @@ pdf = affCall "pdf" \_ -> pdf
setInputFiles
:: forall x o f
. Castable x (Page |+| Frame |+| ElementHandle)
. Castable x (Page |+| Frame |+| ElementHandle)
=> Castable o SetFilesOptions
=> Castable f
( String
|+| Array String
|+| { name :: String
, mimeType :: String
, buffer :: Buffer
}
|+| Array { name :: String
( String
|+| Array String
|+|
{ name :: String
, mimeType :: String
, buffer :: Buffer
}
)
|+| Array
{ name :: String
, mimeType :: String
, buffer :: Buffer
}
)
=> x
-> Selector
-> f
@ -431,50 +455,46 @@ setInputFiles = affCall "setInputFiles" \_ -> setInputFiles
setViewportSize
:: Page
-> { width :: Number
-> { width :: Number
, height :: Number
}
-> Aff Unit
-> Aff Unit
setViewportSize = affCall "setViewportSize" \_ -> setViewportSize
title
:: forall x
. Castable x (Page |+| Frame)
. Castable x (Page |+| Frame)
=> x
-> Aff String
title = affCall "title" \_ -> title
exposeBinding
:: forall x b
. Castable x (Page |+| BrowserContext)
. Castable x (Page |+| BrowserContext)
=> x
-> String
-- ^ Name of the function on the window object.
->
(
{ browserContext :: BrowserContext
, page :: Page
, frame :: Frame
}
-> Foreign
-> Aff b
)
-> ( { browserContext :: BrowserContext
, page :: Page
, frame :: Frame
}
-> Foreign
-> Aff b
)
-> Aff Unit
exposeBinding x binding f =
toAffE $ exposeBinding_ x binding (\d a -> fromAff $ f d a) { handle: false }
foreign import exposeBinding_
:: forall x a b
. x
. x
-> String
->
(
{ browserContext :: BrowserContext
, page :: Page
, frame :: Frame
}
-> a
-> Effect (Promise b)
)
-> ( { browserContext :: BrowserContext
, page :: Page
, frame :: Frame
}
-> a
-> Effect (Promise b)
)
-> { handle :: Boolean }
-> Effect (Promise Unit)

65
src/Playwright/ConsoleMessage.purs
View File

@ -15,9 +15,24 @@ type ConsoleMessageLocation =
}
data ConsoleMessageType
= Log | Debug | Info | Error | Warning | Dir | Dirxml | Table | Trace | Clear
| StartGroup | StartGroupCollapsed | EndGroup | Assert | Profile | ProfileEnd
| Count | TimeEnd
= Log
| Debug
| Info
| Error
| Warning
| Dir
| Dirxml
| Table
| Trace
| Clear
| StartGroup
| StartGroupCollapsed
| EndGroup
| Assert
| Profile
| ProfileEnd
| Count
| TimeEnd
derive instance genericConsoleMessageType :: Generic ConsoleMessageType _
derive instance eqConsoleMessageType :: Eq ConsoleMessageType
@ -37,25 +52,25 @@ text = effCall "text" \_ -> text
type' :: ConsoleMessage -> Effect ConsoleMessageType
type' = map convert <<< type''
where
type'' :: ConsoleMessage -> Effect String
type'' = effCall "type" \_ -> type''
convert = case _ of
"log" -> Log
"debug" -> Debug
"info" -> Info
"error" -> Error
"warning" -> Warning
"dir" -> Dir
"dirxml" -> Dirxml
"table" -> Table
"trace" -> Trace
"clear" -> Clear
"startGroup" -> StartGroup
"startGroupCollapsed" -> StartGroupCollapsed
"endGroup" -> EndGroup
"assert" -> Assert
"profile" -> Profile
"profileEnd" -> ProfileEnd
"count" -> Count
"timeEnd" -> TimeEnd
_ -> Log -- impossible
type'' :: ConsoleMessage -> Effect String
type'' = effCall "type" \_ -> type''
convert = case _ of
"log" -> Log
"debug" -> Debug
"info" -> Info
"error" -> Error
"warning" -> Warning
"dir" -> Dir
"dirxml" -> Dirxml
"table" -> Table
"trace" -> Trace
"clear" -> Clear
"startGroup" -> StartGroup
"startGroupCollapsed" -> StartGroupCollapsed
"endGroup" -> EndGroup
"assert" -> Assert
"profile" -> Profile
"profileEnd" -> ProfileEnd
"count" -> Count
"timeEnd" -> TimeEnd
_ -> Log -- impossible

6
src/Playwright/Data.js
View File

@ -1,5 +1,9 @@
/* global require exports */
import { chromium as pwChromium, firefox as pwFirefox, webkit as pwWebkit } from 'playwright';
import {
chromium as pwChromium,
firefox as pwFirefox,
webkit as pwWebkit,
} from "playwright";
export const png = "png";
export const jpg = "jpg";

4
src/Playwright/Data.purs
View File

@ -1,8 +1,6 @@
module Playwright.Data where
import Prelude
import Untagged.TypeCheck (class HasRuntimeType)
import Foreign (Foreign)
foreign import data BrowserType :: Type
foreign import data Browser :: Type
@ -29,11 +27,13 @@ foreign import png :: ScreenshotType
foreign import jpg :: ScreenshotType
newtype Selector = Selector String
derive newtype instance eqSelector :: Eq Selector
derive newtype instance showSelector :: Show Selector
derive newtype instance ordSelector :: Ord Selector
newtype URL = URL String
derive newtype instance eqURL :: Eq URL
derive newtype instance showURL :: Show URL
derive newtype instance ordURL :: Ord URL

14
src/Playwright/Dialog.purs
View File

@ -23,10 +23,10 @@ data DialogType = Alert | Beforeunload | Confirm | Prompt
type' :: Dialog -> Effect DialogType
type' = map convert <<< type''
where
type'' = effCall "type" \_ -> type''
convert = case _ of
"alert" -> Alert
"beforeunload" -> Beforeunload
"confirm" -> Confirm
"prompt" -> Prompt
_ -> Alert -- impossible
type'' = effCall "type" \_ -> type''
convert = case _ of
"alert" -> Alert
"beforeunload" -> Beforeunload
"confirm" -> Confirm
"prompt" -> Prompt
_ -> Alert -- impossible

10
src/Playwright/Download.js
View File

@ -1,10 +1,10 @@
/* global exports */
export const createReadStream_ = Nothing => Just => Download => () =>
Download.createReadStream().then(result => {
export const createReadStream_ = (Nothing) => (Just) => (Download) => () =>
Download.createReadStream().then((result) => {
if (result === null) {
return Nothing
return Nothing;
} else {
return Just(result)
return Just(result);
}
})
});

17
src/Playwright/Download.purs
View File

@ -1,13 +1,12 @@
module Playwright.Download
( createReadStream
, suggestedFilename
, saveAs
, path
, url
, failure
, delete
)
where
( createReadStream
, suggestedFilename
, saveAs
, path
, url
, failure
, delete
) where
import Control.Promise (Promise, toAffE)
import Data.Maybe (Maybe(..))

6
src/Playwright/Event.js
View File

@ -2,6 +2,6 @@
export const onForeign = (obj) => (eventName) => (effCallback) => () => {
obj.on(eventName, (argument) => {
effCallback(argument)()
})
}
effCallback(argument)();
});
};

76
src/Playwright/Event.purs
View File

@ -1,5 +1,4 @@
module Playwright.Event
where
module Playwright.Event where
import Type.Proxy (Proxy(..))
import Effect (Effect)
@ -8,122 +7,177 @@ import Playwright.Data (Browser, BrowserContext, ConsoleMessage)
import Playwright.Data as Data
import Effect.Exception (Error)
class Event :: forall k. k -> Constraint
class Event e where
getEventName :: Proxy e -> String
class OnEvent :: forall k1 k2 k3. k1 -> k2 -> k3 -> Constraint
class Event e <= OnEvent x e a | x e -> a
-- | Our own `Proxy` for event names.
data EventName :: forall k. k -> Type
data EventName a = EventName
foreign import data Close :: Type
instance eventClose :: Event Close where getEventName _ = "close"
instance eventClose :: Event Close where
getEventName _ = "close"
instance eventPageClose :: OnEvent Data.Page Close Unit
instance eventBrowserContextClose :: OnEvent BrowserContext Close Unit
instance eventBrowserClose :: OnEvent Browser Close Unit
instance eventWorkerClose :: OnEvent Worker Close Unit
close :: EventName Close
close = EventName
foreign import data Console :: Type
instance eventConsole :: Event Console where getEventName _ = "console"
instance eventConsole :: Event Console where
getEventName _ = "console"
instance eventPageConsole :: OnEvent Data.Page Console ConsoleMessage
console :: EventName Console
console = EventName
foreign import data Crash :: Type
instance eventCrash :: Event Crash where getEventName _ = "crash"
instance eventCrash :: Event Crash where
getEventName _ = "crash"
instance eventPageCrash :: OnEvent Data.Page Crash Unit
crash :: EventName Crash
crash = EventName
foreign import data Dialog :: Type
instance eventDialog :: Event Dialog where getEventName _ = "dialog"
instance eventDialog :: Event Dialog where
getEventName _ = "dialog"
instance eventPageDialog :: OnEvent Data.Page Dialog Data.Dialog
dialog :: EventName Dialog
dialog = EventName
foreign import data DomContentLoaded :: Type
instance eventDomContentLoaded :: Event DomContentLoaded where
getEventName _ = "domcontentloaded"
instance eventPageDomContentLoaded :: OnEvent Data.Page DomContentLoaded Unit
domcontentloaded :: EventName DomContentLoaded
domcontentloaded = EventName
foreign import data Download :: Type
instance eventDownload :: Event Download where
getEventName _ = "download"
instance eventPageDownload :: OnEvent Data.Page Download Data.Download
download :: EventName Download
download = EventName
foreign import data FileChooser :: Type
instance eventFileChooser :: Event FileChooser where
getEventName _ = "filechooser"
instance eventPageFileChooser :: OnEvent Data.Page FileChooser Data.FileChooser
filechooser :: EventName FileChooser
filechooser = EventName
foreign import data PageError :: Type
instance eventPageError :: Event PageError where getEventName _ = "pageerror"
instance eventPageError :: Event PageError where
getEventName _ = "pageerror"
instance eventPagePageError :: OnEvent Data.Page PageError Error
pageerror :: EventName PageError
pageerror = EventName
foreign import data Popup :: Type
instance eventPopup :: Event Popup where getEventName _ = "popup"
instance eventPopup :: Event Popup where
getEventName _ = "popup"
instance eventPagePopup :: OnEvent Data.Page Popup Page
popup :: EventName Popup
popup = EventName
foreign import data Request :: Type
instance eventRequest :: Event Request where getEventName _ = "request"
instance eventRequest :: Event Request where
getEventName _ = "request"
instance eventPageRequest :: OnEvent Data.Page Request Data.Request
request :: EventName Request
request = EventName
foreign import data RequestFailed :: Type
instance eventRequestFailed :: Event RequestFailed where
getEventName _ = "requestfailed"
instance eventPageRequestFailed :: OnEvent Data.Page RequestFailed Data.Request
requestfailed :: EventName RequestFailed
requestfailed = EventName
foreign import data RequestFinished :: Type
instance eventRequestFinished :: Event RequestFinished where
getEventName _ = "requestfinished"
instance eventPageRequestFinished :: OnEvent Data.Page RequestFinished Data.Request
requestfinished :: EventName RequestFinished
requestfinished = EventName
foreign import data Response :: Type
instance eventResponse :: Event Response where
getEventName _ = "response"
instance eventPageResponse :: OnEvent Data.Page Response Data.Response
response :: EventName Response
response = EventName
foreign import data Worker :: Type
instance eventWorker :: Event Worker where
getEventName _ = "worker"
instance eventPageWorker :: OnEvent Data.Page Worker Data.Worker
worker :: EventName Worker
worker = EventName
foreign import data Page :: Type
instance eventPage :: Event Page where
getEventName _ = "page"
instance eventPagePage :: OnEvent BrowserContext Page Data.Page
page :: EventName Page
page = EventName
on
:: forall x e a r
. OnEvent x e a
. OnEvent x e a
=> EventName e
-> x
-> (a -> Effect r)
-> Effect Unit
on event obj callback = onForeign obj (getEventName (Proxy :: Proxy e)) callback
on _ obj callback = onForeign obj (getEventName (Proxy :: Proxy e)) callback
foreign import onForeign :: forall x a r. x -> String -> (a -> Effect r) -> Effect Unit

20
src/Playwright/FileChooser.purs
View File

@ -21,19 +21,21 @@ page = effCall "page" \_ -> page
setFiles
:: forall o f
. Castable o SetFilesOptions
. Castable o SetFilesOptions
=> Castable f
( String
|+| Array String
|+| { name :: String
, mimeType :: String
, buffer :: Buffer
}
|+| Array { name :: String
( String
|+| Array String
|+|
{ name :: String
, mimeType :: String
, buffer :: Buffer
}
)
|+| Array
{ name :: String
, mimeType :: String
, buffer :: Buffer
}
)
=> FileChooser
-> f
-> o

28
src/Playwright/Internal.js
View File

@ -18,34 +18,34 @@
*
* effectfulGetter('close', 0, identity);
*/
function effectfulGetter (property, argsCount, effectRunnerWrapper) {
function consume(arg, args, counter) {
const argsNew = [ ...args, arg ];
function effectfulGetter(property, argsCount, effectRunnerWrapper) {
function consume(arg, args, counter) {
const argsNew = [...args, arg];
if (counter === 0) {
const [ object, ...rest ] = argsNew;
if (counter === 0) {
const [object, ...rest] = argsNew;
return effectRunnerWrapper(() => object[property].apply(object, rest))
} else {
return (a) => consume(a, argsNew, counter - 1)
}
return effectRunnerWrapper(() => object[property].apply(object, rest));
} else {
return (a) => consume(a, argsNew, counter - 1);
}
}
return (object) => consume(object, [], argsCount)
return (object) => consume(object, [], argsCount);
}
function identity (x) {
function identity(x) {
return x;
}
export function unsafeEffCall(method) {
return argsCount => effectfulGetter(method, argsCount, identity);
return (argsCount) => effectfulGetter(method, argsCount, identity);
}
export function unsafeAffCall(toAffE) {
return method => argsCount => effectfulGetter(method, argsCount, toAffE);
return (method) => (argsCount) => effectfulGetter(method, argsCount, toAffE);
}
export function effProp(prop) {
return object => () => object[prop];
return (object) => () => object[prop];
}

32
src/Playwright/Internal.purs
View File

@ -1,18 +1,18 @@
module Playwright.Internal
( class NumberOfArgs
, numberOfArgs
, effCall
, effProp
, affCall
)
where
( class NumberOfArgs
, numberOfArgs
, effCall
, effProp
, affCall
) where
import Type.Proxy
import Prelude
import Effect
import Effect.Aff
import Control.Promise
import Type.Proxy (Proxy(..))
import Prelude ((+), (-))
import Effect (Effect)
import Effect.Aff (Aff)
import Control.Promise (Promise, toAffE)
class NumberOfArgs :: forall k. k -> Constraint
class NumberOfArgs x where
numberOfArgs :: Proxy x -> Int
@ -25,18 +25,18 @@ else instance numberOfArgsFunction0 :: NumberOfArgs a where
countArgs :: forall a. NumberOfArgs a => (forall x. x -> a) -> Int
countArgs f = numberOfArgs (proxyOf f) - 2
where
proxyOf :: forall a. a -> Proxy a
proxyOf _ = Proxy :: Proxy a
proxyOf :: forall b. b -> Proxy b
proxyOf _ = Proxy :: Proxy b
foreign import unsafeEffCall
:: forall r
. String
. String
-> Int
-> r
foreign import unsafeAffCall
:: forall r
. (forall a. Effect (Promise a) -> Aff a)
. (forall a. Effect (Promise a) -> Aff a)
-> String
-> Int
-> r

9
src/Playwright/JSHandle.js
View File

@ -1,11 +1,12 @@
/* global exports */
export function getProperties_(insert) {
return emptyMap => jsHandle => () => jsHandle.getProperties().then(props => {
return (emptyMap) => (jsHandle) => () =>
jsHandle.getProperties().then((props) => {
let acc = emptyMap;
props.entries().forEach(pair => {
acc = insert(pair[0])(pair[1])(acc);
props.entries().forEach((pair) => {
acc = insert(pair[0])(pair[1])(acc);
});
return acc;
});
});
}

21
src/Playwright/Keyboard.purs
View File

@ -1,12 +1,11 @@
module Playwright.Keyboard where
import Prelude
import Playwright.Internal (effCall, affCall)
import Prelude (Unit)
import Playwright.Internal (affCall)
import Playwright.Data (Keyboard)
import Playwright.Options (KeyboardPressOptions)
import Effect.Aff (Aff)
import Control.Promise (toAffE)
import Untagged.Castable (class Castable, cast)
import Untagged.Castable (class Castable)
type Key = String
@ -20,15 +19,21 @@ insertText =
press
:: forall o
. Castable o KeyboardPressOptions
=> Keyboard -> Key -> o -> Aff Unit
. Castable o KeyboardPressOptions
=> Keyboard
-> Key
-> o
-> Aff Unit
press =
affCall "press" \_ -> press
type'
:: forall o
. Castable o KeyboardPressOptions
=> Keyboard -> String -> o -> Aff Unit
. Castable o KeyboardPressOptions
=> Keyboard
-> String
-> o
-> Aff Unit
type' =
affCall "type" \_ -> type'

17
src/Playwright/Mouse.purs
View File

@ -1,12 +1,11 @@
module Playwright.Mouse where
import Effect.Aff
import Playwright.Data
import Playwright.Internal
import Playwright.Options
import Prelude
import Effect.Aff (Aff)
import Playwright.Data (Mouse)
import Playwright.Internal (affCall)
import Playwright.Options (MouseClickOptions, MouseDblClickOptions, MouseMoveOptions, MouseUpDownOptions)
import Prelude (Unit)
import Untagged.Castable (class Castable)
import Untagged.Union
click
:: Mouse
@ -26,7 +25,7 @@ dblclick = affCall "dblclick" \_ -> dblclick
down
:: forall o
. Castable o MouseUpDownOptions
. Castable o MouseUpDownOptions
=> Mouse
-> o
-> Aff Unit
@ -34,7 +33,7 @@ down = affCall "down" \_ -> down
move
:: forall o
. Castable o MouseMoveOptions
. Castable o MouseMoveOptions
=> Mouse
-> o
-> Aff Unit
@ -42,7 +41,7 @@ move = affCall "move" \_ -> move
up
:: forall o
. Castable o MouseUpDownOptions
. Castable o MouseUpDownOptions
=> Mouse
-> o
-> Aff Unit

123
src/Playwright/Options.purs
View File

@ -3,7 +3,7 @@ module Playwright.Options where
import Playwright.Data
import Data.String.Regex (Regex)
import Data.Time.Duration (Milliseconds(..))
import Data.Time.Duration (Milliseconds)
import Foreign (Foreign)
import Foreign.Object (Object)
import Literals.Null (Null)
@ -25,22 +25,22 @@ type FillOptions =
}
type LaunchOptions =
{ headless :: Opt Boolean
, executablePath :: Opt String
, args :: Opt String
{ headless :: Opt Boolean
, executablePath :: Opt String
, args :: Opt String
, ignoreDefaultArgs :: Opt (Array String)
, proxy :: Opt ProxyOptions
, downloadsPath :: Opt String
, chromiumSandbox :: Opt Boolean
, firefoxUserPrefs :: Opt Foreign
, handleSIGINT :: Opt Boolean
, handleSIGTERM :: Opt Boolean
, handleSIGHUP :: Opt Boolean
, timeout :: Opt Milliseconds
, env :: Opt (Object String)
, devtools :: Opt Boolean
, slowMo :: Opt Number
, storageState :: Opt { cookies :: Array Cookie }
, proxy :: Opt ProxyOptions
, downloadsPath :: Opt String
, chromiumSandbox :: Opt Boolean
, firefoxUserPrefs :: Opt Foreign
, handleSIGINT :: Opt Boolean
, handleSIGTERM :: Opt Boolean
, handleSIGHUP :: Opt Boolean
, timeout :: Opt Milliseconds
, env :: Opt (Object String)
, devtools :: Opt Boolean
, slowMo :: Opt Number
, storageState :: Opt { cookies :: Array Cookie }
}
type ConnectOptions =
@ -49,43 +49,46 @@ type ConnectOptions =
, timeout :: Opt Number
}
type ConnectOverCDPOptions =
{ timeout :: UndefinedOr Number }
type ProxyOptions =
{ server :: Opt String
, bypass :: Opt String
{ server :: Opt String
, bypass :: Opt String
, username :: Opt String
, password :: Opt String
}
type ScreenshotOptions =
{ path :: Opt String
, "type" :: Opt ScreenshotType
, quality :: Opt Number
{ path :: Opt String
, "type" :: Opt ScreenshotType
, quality :: Opt Number
, omitBackground :: Opt Boolean
, timeout :: Opt Milliseconds
, timeout :: Opt Milliseconds
}
type GotoOptions =
{ timeout :: Opt Milliseconds
{ timeout :: Opt Milliseconds
, waitUntil :: Opt WaitUntil
, referer :: Opt String
, referer :: Opt String
}
type NewpageOptions =
{ acceptDownloads :: Opt Boolean
{ acceptDownloads :: Opt Boolean
, ignoreHTTPSErrors :: Opt Boolean
, bypassCSP :: Opt Boolean
, viewport :: Opt (Null |+| { width :: Int, height :: Int })
, bypassCSP :: Opt Boolean
, viewport :: Opt (Null |+| { width :: Int, height :: Int })
}
type GoOptions =
{ timeout :: Opt Milliseconds
{ timeout :: Opt Milliseconds
, waitUntil :: Opt WaitUntil
}
type HoverOptions =
{ position :: Opt Position
, modifier :: Opt (Array Modifier)
, force :: Opt Boolean
, force :: Opt Boolean
}
type InnerHTMLOptions =
@ -106,29 +109,29 @@ type AddInitScriptOptions =
type Position = { x :: Int, y :: Int }
type ClickOptions =
{ button :: Opt MouseButton
, clickCount :: Opt Int
, delay :: Opt Int
, position :: Opt Position
, modifiers :: Opt (Array Modifier)
, force :: Opt Boolean
{ button :: Opt MouseButton
, clickCount :: Opt Int
, delay :: Opt Int
, position :: Opt Position
, modifiers :: Opt (Array Modifier)
, force :: Opt Boolean
, noWaitAfter :: Opt Boolean
, timeout :: Opt Milliseconds
, timeout :: Opt Milliseconds
}
type MouseClickOptions =
{ button :: Opt MouseButton
{ button :: Opt MouseButton
, clickCount :: Opt Int
, delay :: Opt Int
, delay :: Opt Int
}
type MouseDblClickOptions =
{ button :: Opt MouseButton
, delay :: Opt Int
{ button :: Opt MouseButton
, delay :: Opt Int
}
type MouseUpDownOptions =
{ button :: Opt MouseButton
{ button :: Opt MouseButton
, clickCount :: Opt Int
}
@ -137,8 +140,8 @@ type MouseMoveOptions =
}
type WaitForNavigationOptions =
{ timeout :: Opt Milliseconds
, url :: Opt (String |+| Regex |+| URL -> Boolean)
{ timeout :: Opt Milliseconds
, url :: Opt (String |+| Regex |+| URL -> Boolean)
, waitUntil :: Opt WaitUntil
}
@ -151,7 +154,7 @@ type WaitForResponseOptions =
}
type WaitForSelectorOptions =
{ state :: Opt ElementState
{ state :: Opt ElementState
, timeout :: Opt Milliseconds
}
@ -165,29 +168,29 @@ type WaitForLoadStateOptions =
}
type Margin =
{ top :: Opt (String |+| Number)
, right :: Opt (String |+| Number)
{ top :: Opt (String |+| Number)
, right :: Opt (String |+| Number)
, bottom :: Opt (String |+| Number)
, left :: Opt (String |+| Number)
, left :: Opt (String |+| Number)
}
type PdfOptions =
{ path :: String
, scale :: Opt Number
{ path :: String
, scale :: Opt Number
, displayHeaderFooter :: Opt Boolean
, headerTemplate :: Opt String
, footerTemplate :: Opt String
, printBackground :: Opt Boolean
, landscape :: Opt Boolean
, pageRanges :: Opt String
, format :: Opt String
, width :: Opt (String |+| Number)
, height :: Opt (String |+| Number)
, margin :: Opt Margin
, preferCSSPageSize :: Opt Boolean
, headerTemplate :: Opt String
, footerTemplate :: Opt String
, printBackground :: Opt Boolean
, landscape :: Opt Boolean
, pageRanges :: Opt String
, format :: Opt String
, width :: Opt (String |+| Number)
, height :: Opt (String |+| Number)
, margin :: Opt Margin
, preferCSSPageSize :: Opt Boolean
}
type SetFilesOptions =
{ noWaitAfter :: Opt Boolean
, timeout :: Opt Milliseconds
, timeout :: Opt Milliseconds
}

8
src/Playwright/Response.js
View File

@ -1,10 +1,10 @@
/* global exports */
export const finished_ = Nothing => Just => Response => () =>
export const finished_ = (Nothing) => (Just) => (Response) => () =>
Response.finished().then((result) => {
if (result === null) {
return Nothing
return Nothing;
} else {
return Just(result)
return Just(result);
}
})
});

25
src/Playwright/Response.purs
View File

@ -1,17 +1,16 @@
module Playwright.Response
( body
, finished
, frame
, headers
, json
, ok
, request
, status
, statusText
, text
, url
)
where
( body
, finished
, frame
, headers
, json
, ok
, request
, status
, statusText
, text
, url
) where
import Control.Promise (Promise, toAffE)
import Data.Argonaut.Core (Json)

16
test/Main.purs
View File

@ -13,14 +13,14 @@ import Foreign as Foreign
import Node.Encoding as Encoding
import Node.FS.Aff as FS
import Node.Stream as Stream
import Playwright
import Playwright (Selector(..), URL(..), chromium, click, close, dblclick, evaluate, exposeBinding, isClosed, launch, mainFrame, name, screenshot, textContent, url, version, waitForFunction, waitForSelector, waitForTimeout)
import Node.EventEmitter (on_)
import Playwright.ConsoleMessage as ConsoleMessage
import Playwright.Dialog as Dialog
import Playwright.Download as Download
import Playwright.Event (on)
import Playwright.Event as Event
import Prelude
import Prelude (Unit, bind, discard, pure, void, (#), ($), (/=), (<$>), (<<<), (<>), (=<<), (==))
import Test.Unit (suite, test)
import Test.Unit.Assert as Assert
import Test.Unit.Main (runTest)
@ -34,8 +34,8 @@ static file =
main :: Effect Unit
main = runTest do
let
hello = static "hello.html"
index = static "index.html"
hello = static "hello.html"
index = static "index.html"
suite "browser" do
test "launch, close" do
browser <- launch chromium {}
@ -98,8 +98,7 @@ main = runTest do
ref <- liftEffect $ Ref.new Nothing
frgnRef <- liftEffect $ Ref.new Nothing
exposeBinding page "hi_ffi"
(
\({frame}) frgn -> do
( \({ frame }) frgn -> do
url <- liftEffect $ url frame
liftEffect do
Console.log "hi"
@ -111,8 +110,9 @@ main = runTest do
mbUrl <- liftEffect $ Ref.read ref
mbForeign <- liftEffect $ Ref.read frgnRef
Assert.equal (Just hello) mbUrl
Assert.assert "exposeBinding is not able to accept an argument" $
pure (pure 12) == (runExcept <<< Foreign.readInt <$> mbForeign)
Assert.assert "exposeBinding is not able to accept an argument"
$ pure (pure 12)
== (runExcept <<< Foreign.readInt <$> mbForeign)
suite "events" do
test "console" do
withBrowserPage hello

2
test/TestUtils.js
View File

@ -2,4 +2,4 @@
export const cwd = process.cwd();
export const isNull = sth => sth === null;
export const isNull = (sth) => sth === null;

19
test/TestUtils.purs
View File

@ -1,12 +1,11 @@
module TestUtils
( assertForeignTrue
, withBrowser
, withBrowserPage
, testClickEvent
, cwd
, isNull
)
where
( assertForeignTrue
, withBrowser
, withBrowserPage
, testClickEvent
, cwd
, isNull
) where
import Test.Unit.Assert as Assert
import Foreign (Foreign, readBoolean)
@ -26,8 +25,8 @@ assertForeignTrue value = do
withBrowser :: forall a. (Browser -> Aff a) -> Aff a
withBrowser = withResource acquire release
where
acquire = launch chromium {}
release = close
acquire = launch chromium {}
release = close
withBrowserPage :: forall a. URL -> (Page -> Aff a) -> Aff a
withBrowserPage url action = do