Add status code and message

Author: paf31

docs/Node/HTTP/Client.md

@@ -133,4 +133,20 @@ responseHeaders :: Response -> StrMap String
 
 Get the response headers as a hash
 
+#### `statusCode`
+
+``` purescript
+statusCode :: Response -> Int
+```
+
+Get the response status code
+
+#### `statusMessage`
+
+``` purescript
+statusMessage :: Response -> String
+```
+
+Get the response status message
+
 

src/Node/HTTP/Client.purs

@@ -17,6 +17,8 @@ module Node.HTTP.Client
   , responseAsStream
   , httpVersion
   , responseHeaders
+  , statusCode
+  , statusMessage
   ) where
 
 import Prelude
@@ -96,3 +98,11 @@ httpVersion = _.httpVersion <<< unsafeCoerce
 -- | Get the response headers as a hash
 responseHeaders :: Response -> StrMap String
 responseHeaders = _.headers <<< unsafeCoerce
+
+-- | Get the response status code
+statusCode :: Response -> Int
+statusCode = _.statusCode <<< unsafeCoerce
+
+-- | Get the response status message
+statusMessage :: Response -> String
+statusMessage = _.statusMessage <<< unsafeCoerce