Add requestFromURI

Author: paf31

docs/Node/HTTP/Client.md

@@ -101,6 +101,14 @@ request :: forall eff. Options RequestOptions -> (Response -> Eff (http :: HTTP
 
 Make a HTTP request using the specified options and response callback.
 
+#### `requestFromURI`
+
+``` purescript
+requestFromURI :: forall eff. String -> (Response -> Eff (http :: HTTP | eff) Unit) -> Eff (http :: HTTP | eff) Request
+```
+
+Make a HTTP request from a URI string and response callback.
+
 #### `requestAsStream`
 
 ``` purescript

src/Node/HTTP/Client.purs

@@ -13,6 +13,7 @@ module Node.HTTP.Client
   , headers
   , auth
   , request
+  , requestFromURI
   , requestAsStream
   , responseAsStream
   , httpVersion
@@ -83,6 +84,10 @@ foreign import requestImpl :: forall eff. Foreign -> (Response -> Eff (http :: H
 request :: forall eff. Options RequestOptions -> (Response -> Eff (http :: HTTP | eff) Unit) -> Eff (http :: HTTP | eff) Request
 request = requestImpl <<< options
 
+-- | Make a HTTP request from a URI string and response callback.
+requestFromURI :: forall eff. String -> (Response -> Eff (http :: HTTP | eff) Unit) -> Eff (http :: HTTP | eff) Request
+requestFromURI = requestImpl <<< toForeign
+
 -- | Create a writable stream from a request object.
 requestAsStream :: forall eff r a. Request -> Writable r (http :: HTTP | eff) a
 requestAsStream = unsafeCoerce

test/Main.purs

@@ -18,7 +18,7 @@ main = do
   server <- createServer respond
   listen server 8080 $ void do
     log "Listening on port 8080."
-    req <- Client.request (Client.hostname := "localhost" <> Client.port := 8080) \response -> void do
+    req <- Client.requestFromURI "http://localhost:8080/" \response -> void do
       log "Response from GET /:"
       let responseStream = Client.responseAsStream response
       pipe responseStream stdout