From 05345f2bb315efd8170beff66d5de04065240b42 Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Sat, 14 Oct 2023 16:32:59 -0500 Subject: [PATCH] fix: why is this underscored --- src/Puppeteer.Plugin.Captcha.purs | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/src/Puppeteer.Plugin.Captcha.purs b/src/Puppeteer.Plugin.Captcha.purs index ce0164d..14be850 100644 --- a/src/Puppeteer.Plugin.Captcha.purs +++ b/src/Puppeteer.Plugin.Captcha.purs @@ -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