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

fix: fucker

Browse Source
This commit is contained in:
orion 2023-10-06 15:32:09 -05:00
parent 37ac23c57a
commit 7c745f6fd7
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Puppeteer.Page.HTTP.Request.purs
View File

@ -77,9 +77,9 @@ foreign import method :: Request -> Effect String
foreign import resourceType :: Request -> Effect String
foreign import url :: Request -> Effect String
foreign import _abort :: String -> Request -> Promise Unit
foreign import _continue :: Foreign -> Request -> Promise Unit
foreign import _respond :: Foreign -> Request -> Promise Unit
foreign import _abort :: String -> Request -> Effect (Promise Unit)
foreign import _continue :: Foreign -> Request -> Effect (Promise Unit)
foreign import _respond :: Foreign -> Request -> Effect (Promise Unit)
foreign import _headers :: Request -> Effect (Array { k :: String, v :: String })
foreign import _failure :: Request -> Effect (Nullable { errorText :: String })
@ -90,13 +90,13 @@ headers :: Request -> Effect (Map String String)
headers = map FFI.makeMap <<< _headers
abort :: Context InterceptRequestsHint -> ErrorCode -> Request -> Aff Unit
abort _ e = Promise.toAff <<< _abort (errorCodeString e)
abort _ e = Promise.toAffE <<< _abort (errorCodeString e)
continue :: Context InterceptRequestsHint -> ContinueRequestOverrides -> Request -> Aff Unit
continue _ o = Promise.toAff <<< _continue (prepareContinueRequestOverrides o)
continue _ o = Promise.toAffE <<< _continue (prepareContinueRequestOverrides o)
respond :: Context InterceptRequestsHint -> RespondToRequest -> Request -> Aff Unit
respond _ r = Promise.toAff <<< _respond (prepareRespondToRequest r)
respond _ r = Promise.toAffE <<< _respond (prepareRespondToRequest r)
failure :: Request -> Effect (Maybe String)
failure = map (map _.errorText <<< Nullable.toMaybe) <<< _failure