Expose original request url as a part of Request
(#155)
This commit is contained in:
parent
61b88de59b
commit
896956b762
@ -28,6 +28,7 @@ type Request =
|
|||||||
, headers :: Headers.Headers
|
, headers :: Headers.Headers
|
||||||
, body :: String
|
, body :: String
|
||||||
, httpVersion :: Version.Version
|
, httpVersion :: Version.Version
|
||||||
|
, url :: String
|
||||||
}
|
}
|
||||||
|
|
||||||
-- | Return the full resolved path, including query parameters. This may not
|
-- | Return the full resolved path, including query parameters. This may not
|
||||||
@ -54,4 +55,5 @@ fromHTTPRequest request = do
|
|||||||
, headers: Headers.read request
|
, headers: Headers.read request
|
||||||
, body
|
, body
|
||||||
, httpVersion: Version.read request
|
, httpVersion: Version.read request
|
||||||
|
, url: HTTP.requestURL request
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user