X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponse.hs;h=1c19da4cc87babe36f9f407aed2fdf1615e2ff7f;hp=0e6fbe2d8f2bb120b9f229cc5290db9610cb5957;hb=a9e9f50818285bf66cd64e5a248175eecb8e1fea;hpb=3c7a58ab749a55a30466a033b170536bcdf18b98

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 0e6fbe2..1c19da4 100644
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -4,6 +4,7 @@ module Network.HTTP.Lucu.Response
     , hPutResponse    -- Handle -> Response -> IO ()
     , isInformational -- StatusCode -> Bool
     , isError         -- StatusCode -> Bool
+    , statusCode      -- StatusCode -> (Int, String)
     )
     where