Add setTimeout function.

Author: paf31

docs/Node/HTTP/Client.md

@@ -126,6 +126,14 @@ responseAsStream :: forall eff w a. Response -> Readable w (http :: HTTP | eff)
 
 Create a readable stream from a response object.
 
+#### `setTimeout`
+
+``` purescript
+setTimeout :: forall eff. Request -> Int -> Eff (http :: HTTP | eff) Unit -> Eff (http :: HTTP | eff) Unit
+```
+
+Set the socket timeout for a `Request`
+
 #### `httpVersion`
 
 ``` purescript

src/Node/HTTP/Client.js

@@ -13,3 +13,13 @@ exports.requestImpl = function(opts) {
     };
   };
 };
+
+exports.setTimeout = function(r) {
+  return function(ms) {
+    return function(k) {
+      return function() {
+        r.setTimeout(ms, k);
+      };
+    };
+  };
+};

src/Node/HTTP/Client.purs

@@ -16,6 +16,7 @@ module Node.HTTP.Client
   , requestFromURI
   , requestAsStream
   , responseAsStream
+  , setTimeout
   , httpVersion
   , responseHeaders
   , statusCode
@@ -96,6 +97,9 @@ requestAsStream = unsafeCoerce
 responseAsStream :: forall eff w a. Response -> Readable w (http :: HTTP | eff) a
 responseAsStream = unsafeCoerce
 
+-- | Set the socket timeout for a `Request`
+foreign import setTimeout :: forall eff. Request -> Int -> Eff (http :: HTTP | eff) Unit -> Eff (http :: HTTP | eff) Unit
+
 -- | Get the request HTTP version
 httpVersion :: Response -> String
 httpVersion = _.httpVersion <<< unsafeCoerce