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

fix: why is this underscored

Browse Source
This commit is contained in:
orion 2023-10-14 16:32:59 -05:00
parent 3770f3b993
commit 05345f2bb3
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -171,9 +171,11 @@ duplexSolved :: JsDuplex CaptchaSolved _
duplexSolved =
let
toRaw r = modify (Proxy :: Proxy "solvedAt") CoerceDate
$ rename (Proxy :: Proxy "vendor") (Proxy :: Proxy "_vendor")
$ r
fromRaw r = pure
$ modify (Proxy :: Proxy "solvedAt") unwrap
$ rename (Proxy :: Proxy "_vendor") (Proxy :: Proxy "vendor")
$ r
in
duplex toRaw fromRaw
@ -237,10 +239,12 @@ duplexSoln =
let
toRaw r = modify (Proxy :: Proxy "requestAt") CoerceDate
$ modify (Proxy :: Proxy "responseAt") CoerceDate
$ rename (Proxy :: Proxy "vendor") (Proxy :: Proxy "_vendor")
$ r
fromRaw r = pure
$ modify (Proxy :: Proxy "requestAt") (unwrap)
$ modify (Proxy :: Proxy "responseAt") (unwrap)
$ rename (Proxy :: Proxy "_vendor") (Proxy :: Proxy "vendor")
$ r
in
duplex toRaw fromRaw
@ -248,8 +252,13 @@ duplexSoln =
duplexInfo :: JsDuplex CaptchaInfo _
duplexInfo =
let
toRaw r = rename (Proxy :: Proxy "kind") (Proxy :: Proxy "_type") $ r
fromRaw r = pure $ rename (Proxy :: Proxy "_type") (Proxy :: Proxy "kind") r
toRaw r = rename (Proxy :: Proxy "kind") (Proxy :: Proxy "_type")
$ rename (Proxy :: Proxy "vendor") (Proxy :: Proxy "_vendor")
$ r
fromRaw r = pure
$ rename (Proxy :: Proxy "_type") (Proxy :: Proxy "kind")
$ rename (Proxy :: Proxy "_vendor") (Proxy :: Proxy "vendor")
$ r
in
duplex toRaw fromRaw