From 896956b7624ae9c4429c12eaf7d982bb3aa13f2a Mon Sep 17 00:00:00 2001
From: paluh <paluho@gmail.com>
Date: Mon, 9 Mar 2020 16:34:04 +0100
Subject: [PATCH] Expose original request url as a part of `Request` (#155)

---
 src/HTTPure/Request.purs | 2 ++
 1 file changed, 2 insertions(+)

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
     }