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 = duplexSolved =
let let
toRaw r = modify (Proxy :: Proxy "solvedAt") CoerceDate toRaw r = modify (Proxy :: Proxy "solvedAt") CoerceDate
$ rename (Proxy :: Proxy "vendor") (Proxy :: Proxy "_vendor")
$ r $ r
fromRaw r = pure fromRaw r = pure
$ modify (Proxy :: Proxy "solvedAt") unwrap $ modify (Proxy :: Proxy "solvedAt") unwrap
$ rename (Proxy :: Proxy "_vendor") (Proxy :: Proxy "vendor")
$ r $ r
in in
duplex toRaw fromRaw duplex toRaw fromRaw
@ -237,10 +239,12 @@ duplexSoln =
let let
toRaw r = modify (Proxy :: Proxy "requestAt") CoerceDate toRaw r = modify (Proxy :: Proxy "requestAt") CoerceDate
$ modify (Proxy :: Proxy "responseAt") CoerceDate $ modify (Proxy :: Proxy "responseAt") CoerceDate
$ rename (Proxy :: Proxy "vendor") (Proxy :: Proxy "_vendor")
$ r $ r
fromRaw r = pure fromRaw r = pure
$ modify (Proxy :: Proxy "requestAt") (unwrap) $ modify (Proxy :: Proxy "requestAt") (unwrap)
$ modify (Proxy :: Proxy "responseAt") (unwrap) $ modify (Proxy :: Proxy "responseAt") (unwrap)
$ rename (Proxy :: Proxy "_vendor") (Proxy :: Proxy "vendor")
$ r $ r
in in
duplex toRaw fromRaw duplex toRaw fromRaw
@ -248,8 +252,13 @@ duplexSoln =
duplexInfo :: JsDuplex CaptchaInfo _ duplexInfo :: JsDuplex CaptchaInfo _
duplexInfo = duplexInfo =
let let
toRaw r = rename (Proxy :: Proxy "kind") (Proxy :: Proxy "_type") $ r toRaw r = rename (Proxy :: Proxy "kind") (Proxy :: Proxy "_type")
fromRaw r = pure $ rename (Proxy :: Proxy "_type") (Proxy :: Proxy "kind") r $ 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 in
duplex toRaw fromRaw duplex toRaw fromRaw