From b40bcdb92d2071a84e84c0db13e696ff4ec3c5a0 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Sun, 8 Oct 2023 11:21:23 -0500
Subject: [PATCH] fix: page.authenticate

---
 src/Puppeteer.Page.js   | 3 +++
 src/Puppeteer.Page.purs | 5 +++++
 2 files changed, 8 insertions(+)

diff --git a/src/Puppeteer.Page.js b/src/Puppeteer.Page.js
index f980cc6..993cbbf 100644
--- a/src/Puppeteer.Page.js
+++ b/src/Puppeteer.Page.js
@@ -21,6 +21,9 @@ export const _newPage = b => () => b.newPage()
 /** @type {(_: Browser | BrowserContext) => () => Promise<Array<Page>>} */
 export const _all = b => () => b.pages()
 
+/** @type {(_: {username: string, password: string}) => (_: Page) => () => Promise<void>} */
+export const _authenticate = creds => p => () => p.authenticate(creds)
+
 /**
  * @type {(_1: string) => (_2: Page) => () => Promise<Array<ElementHandle<any>>>}
  */
diff --git a/src/Puppeteer.Page.purs b/src/Puppeteer.Page.purs
index cbd6985..913ff7f 100644
--- a/src/Puppeteer.Page.purs
+++ b/src/Puppeteer.Page.purs
@@ -1,5 +1,6 @@
 module Puppeteer.Page
   ( module X
+  , authenticate
   , new
   , all
   , findAll
@@ -102,6 +103,7 @@ foreign import mouse :: Page -> Effect Unit
 foreign import touchscreen :: Page -> Effect Unit
 foreign import isClosed :: Page -> Effect Boolean
 
+foreign import _authenticate :: { username :: String, password :: String } -> Page -> Effect (Promise Unit)
 foreign import _newPage :: Foreign -> Effect (Promise Page)
 foreign import _all :: Foreign -> Effect (Promise (Array Page))
 foreign import _findAll :: forall a. String -> Page -> Effect (Promise (Array (Handle a)))
@@ -118,6 +120,9 @@ foreign import _viewport :: Page -> Foreign
 new :: forall b. PageProducer b => b -> Aff Page
 new = Promise.toAffE <<< _newPage <<< unsafeToForeign
 
+authenticate :: { username :: String, password :: String } -> Page -> Aff Unit
+authenticate creds = Promise.toAffE <<< _authenticate creds
+
 all :: forall b. PageProducer b => b -> Aff (Array Page)
 all = Promise.toAffE <<< _all <<< unsafeToForeign