purescript-httpurple/lib/HTTPure/Request.purs

26 lines
578 B
Haskell

module HTTPure.Request
( Request
, fromHTTPRequest
, getURL
) where
import Node.HTTP (HTTP, Request, requestAsStream, requestURL) as HTTP
import Node.Stream (Readable)
-- | TODO write me
type Request e = {
httpRequest :: HTTP.Request,
stream :: Readable () (http :: HTTP.HTTP | e)
}
-- | TODO write me
fromHTTPRequest :: forall e. HTTP.Request -> Request e
fromHTTPRequest request = {
httpRequest: request,
stream: HTTP.requestAsStream request
}
-- | TODO write me
getURL :: forall e. Request e -> String
getURL request = HTTP.requestURL request.httpRequest