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 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.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