X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponse.hs;h=5a7c3a5fa2fe28a3ea5bd8b33ea97a64512892f0;hb=175e14b3b144537644e65ca76f1fca5c56fd44e9;hp=54d57b2972abe824cfd1d1931a1682a87d531a24;hpb=e624f0db8c4610b36da9e4463a656e0cb8a104dd;p=Lucu.git diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs index 54d57b2..5a7c3a5 100644 --- a/Network/HTTP/Lucu/Response.hs +++ b/Network/HTTP/Lucu/Response.hs @@ -78,8 +78,8 @@ data Response = Response { resVersion :: HttpVersion , resStatus :: StatusCode , resHeaders :: Headers - } - deriving (Show, Eq) + } deriving (Show, Eq) + instance HasHeaders Response where getHeaders = resHeaders