From 087073e052162d4e2ccb6b008f3b821f99c753a1 Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Thu, 26 Oct 2023 17:34:28 -0500 Subject: [PATCH] fix: console execution context error --- src/Puppeteer.Page.Event.purs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/Puppeteer.Page.Event.purs b/src/Puppeteer.Page.Event.purs index af9879d..d9dc295 100644 --- a/src/Puppeteer.Page.Event.purs +++ b/src/Puppeteer.Page.Event.purs @@ -25,8 +25,8 @@ import Prelude import Control.Monad.Error.Class (liftEither, try) import Control.Monad.Except (runExcept) import Data.Bifunctor (lmap) -import Data.Either (hush, note) -import Data.Maybe (Maybe) +import Data.Either (Either(..), hush, note) +import Data.Maybe (Maybe, maybe) import Data.Nullable (Nullable) import Data.String as String import Effect (Effect) @@ -48,11 +48,13 @@ connectPageConsole :: Page -> Effect Unit connectPageConsole p = let onmsg m = launchAff_ do - title <- Page.title p - let t = ConsoleMessage.messageType m - let textLevel = "[" <> String.toUpper (messageTypeString t) <> "]" - let textPrefix = "[Puppeteer.Page@\"" <> title <> "\"]" - let text = textLevel <> " " <> textPrefix <> " " <> ConsoleMessage.text m + title <- hush <$> try (Page.title p) + let + prefix = maybe "[Puppeteer.Page]" (flip append "\"]" <<< append "[Puppeteer.Page@\"") title + t = ConsoleMessage.messageType m + textLevel = "[" <> String.toUpper (messageTypeString t) <> "]" + text = textLevel <> " " <> prefix <> " " <> ConsoleMessage.text m + liftEffect $ case t of ConsoleMessage.Debug -> Console.debug text ConsoleMessage.Error -> Console.error text