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

fix: console execution context error

Browse Source
This commit is contained in:
orion kindel 2023-10-26 17:34:28 -05:00
parent 1263f5af72
commit 087073e052
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Puppeteer.Page.Event.purs
View File

@ -25,8 +25,8 @@ import Prelude
import Control.Monad.Error.Class (liftEither, try) import Control.Monad.Error.Class (liftEither, try)
import Control.Monad.Except (runExcept) import Control.Monad.Except (runExcept)
import Data.Bifunctor (lmap) import Data.Bifunctor (lmap)
import Data.Either (hush, note) import Data.Either (Either(..), hush, note)
import Data.Maybe (Maybe) import Data.Maybe (Maybe, maybe)
import Data.Nullable (Nullable) import Data.Nullable (Nullable)
import Data.String as String import Data.String as String
import Effect (Effect) import Effect (Effect)
@ -48,11 +48,13 @@ connectPageConsole :: Page -> Effect Unit
connectPageConsole p = connectPageConsole p =
let let
onmsg m = launchAff_ do onmsg m = launchAff_ do
title <- Page.title p title <- hush <$> try (Page.title p)
let t = ConsoleMessage.messageType m let
let textLevel = "[" <> String.toUpper (messageTypeString t) <> "]" prefix = maybe "[Puppeteer.Page]" (flip append "\"]" <<< append "[Puppeteer.Page@\"") title
let textPrefix = "[Puppeteer.Page@\"" <> title <> "\"]" t = ConsoleMessage.messageType m
let text = textLevel <> " " <> textPrefix <> " " <> ConsoleMessage.text m textLevel = "[" <> String.toUpper (messageTypeString t) <> "]"
text = textLevel <> " " <> prefix <> " " <> ConsoleMessage.text m
liftEffect $ case t of liftEffect $ case t of
ConsoleMessage.Debug -> Console.debug text ConsoleMessage.Debug -> Console.debug text
ConsoleMessage.Error -> Console.error text ConsoleMessage.Error -> Console.error text