Merge pull request #75 from eskimor/added-generics

Added some Generic instances

Author: jdegoes

src/Network/HTTP/ResponseHeader.purs

@@ -6,9 +6,12 @@ module Network.HTTP.ResponseHeader
   ) where
 
 import Prelude
+import Data.Generic (class Generic)
 
 data ResponseHeader = ResponseHeader String String
 
+derive instance genericResponseHeader :: Generic ResponseHeader
+
 responseHeader :: String -> String -> ResponseHeader
 responseHeader field value = ResponseHeader field value
 

src/Network/HTTP/StatusCode.purs

@@ -1,9 +1,12 @@
 module Network.HTTP.StatusCode where
 
 import Prelude
+import Data.Generic (class Generic)
 
 newtype StatusCode = StatusCode Int
 
+derive instance genericStatusCode :: Generic StatusCode
+
 instance eqStatusCode :: Eq StatusCode where
   eq (StatusCode x) (StatusCode y) = x == y