diff --git a/src/HTTPure/Request.purs b/src/HTTPure/Request.purs index ca1178e..b0b7b44 100644 --- a/src/HTTPure/Request.purs +++ b/src/HTTPure/Request.purs @@ -28,6 +28,7 @@ type Request = , headers :: Headers.Headers , body :: String , httpVersion :: Version.Version + , url :: String } -- | Return the full resolved path, including query parameters. This may not @@ -54,4 +55,5 @@ fromHTTPRequest request = do , headers: Headers.read request , body , httpVersion: Version.read request + , url: HTTP.requestURL request }