Add responseHeaderName / responseHeaderValue

Author: garyb

docs/Network.HTTP.ResponseHeader.md

@@ -18,4 +18,16 @@ instance showResponseHeader :: Show ResponseHeader
 responseHeader :: String -> String -> ResponseHeader
 ```
 
+#### `responseHeaderName`
+
+``` purescript
+responseHeaderName :: ResponseHeader -> String
+```
+
+#### `responseHeaderValue`
+
+``` purescript
+responseHeaderValue :: ResponseHeader -> String
+```
+
 

src/Network/HTTP/ResponseHeader.purs

@@ -1,6 +1,8 @@
 module Network.HTTP.ResponseHeader
   ( ResponseHeader()
   , responseHeader
+  , responseHeaderName
+  , responseHeaderValue
   ) where
 
 import Prelude
@@ -16,3 +18,9 @@ instance eqResponseHeader :: Eq ResponseHeader where
 
 instance showResponseHeader :: Show ResponseHeader where
   show (ResponseHeader h v) = "(ResponseHeader " ++ show h ++ " " ++ show v ++ ")"
+
+responseHeaderName :: ResponseHeader -> String
+responseHeaderName (ResponseHeader h _) = h
+
+responseHeaderValue :: ResponseHeader -> String
+responseHeaderValue (ResponseHeader _ v) = v