Many improvements

[Lucu.git] / Network / HTTP / Lucu / Response.hs

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 0e6fbe2d8f2bb120b9f229cc5290db9610cb5957..1c19da4cc87babe36f9f407aed2fdf1615e2ff7f 100644 (file)
--- 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