Merge pull request #9 from kika/master

Added family request option to control IP address family

Author: paf31

docs/Node/HTTP/Client.md

@@ -35,6 +35,16 @@ data RequestOptions
 
 The type of HTTP request options
 
+#### `RequestFamily`
+
+``` purescript
+data RequestFamily
+  = IPV4
+  | IPV6
+```
+
+Values for the `family` request option
+
 #### `protocol`
 
 ``` purescript
@@ -89,6 +99,15 @@ auth :: Option RequestOptions String
 
 Basic authentication
 
+#### `family`
+
+``` purescript
+family :: Option RequestOptions RequestFamily
+```
+
+IP address family to use when resolving `hostname`.
+Valid values are `IPV6` and `IPV4`
+
 #### `request`
 
 ``` purescript
@@ -144,6 +163,15 @@ responseHeaders :: Response -> StrMap String
 ```
 
 Get the response headers as a hash
+Cookies are not included and could be retrieved with responseCookies
+
+#### `responseCookies`
+
+``` purescript
+responseCookies :: Response -> Maybe (Array String)
+```
+
+Get the response cookies as Just (Array String) or Nothing if no cookies
 
 #### `statusCode`
 

src/Node/HTTP/Client.purs

@@ -5,13 +5,15 @@ module Node.HTTP.Client
   , Response()
   , RequestHeaders(..)
   , RequestOptions()
+  , RequestFamily(..)
   , protocol
   , hostname
   , port
   , method
   , path
   , headers
   , auth
+  , family
   , request
   , requestFromURI
   , requestAsStream
@@ -31,6 +33,7 @@ import Data.Maybe (Maybe)
 import Data.Foreign (Foreign, toForeign)
 import Data.Options (Options, Option, options, opt)
 import Data.StrMap (StrMap(), delete, lookup)
+import Data.Functor.Contravariant ((>$<))
 import Node.HTTP (HTTP())
 import Node.Stream (Readable, Writable)
 import Node.URL as URL
@@ -48,6 +51,9 @@ newtype RequestHeaders = RequestHeaders (StrMap String)
 -- | The type of HTTP request options
 data RequestOptions
 
+-- | Values for the `family` request option
+data RequestFamily = IPV4 | IPV6
+
 -- | The protocol to use
 protocol :: Option RequestOptions String
 protocol = opt "protocol"
@@ -75,6 +81,16 @@ headers = opt "headers"
 auth :: Option RequestOptions String
 auth = opt "auth"
 
+-- | IP address family to use when resolving `hostname`.
+-- | Valid values are `IPV6` and `IPV4`
+family :: Option RequestOptions RequestFamily
+family = familyToOption >$< opt "family"
+
+-- | Translates RequestFamily values to Int parameters for Request
+familyToOption :: RequestFamily -> Int
+familyToOption IPV4 = 4
+familyToOption IPV6 = 6
+
 -- | Make a HTTP request using the specified options and response callback.
 foreign import requestImpl :: forall eff. Foreign -> (Response -> Eff (http :: HTTP | eff) Unit) -> Eff (http :: HTTP | eff) Request