X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponse.hs;h=5a7c3a5fa2fe28a3ea5bd8b33ea97a64512892f0;hp=54d57b2972abe824cfd1d1931a1682a87d531a24;hb=175e14b3b144537644e65ca76f1fca5c56fd44e9;hpb=b340a77fa7bd051dd13a41d0a5b1ad30220bc6b6 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