X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource.hs;h=24ae4b254a8e548593f2927ae28eb9c4ec4a321e;hp=7405975d5f2a0752968ed899a1aeadb6a0250916;hb=2d25d34513dc4f6bf62e53e2af2f4a4ef39cc6dc;hpb=e624f0db8c4610b36da9e4463a656e0cb8a104dd

diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs
index 7405975..24ae4b2 100644
--- a/Network/HTTP/Lucu/Resource.hs
+++ b/Network/HTTP/Lucu/Resource.hs
@@ -10,6 +10,7 @@ module Network.HTTP.Lucu.Resource
     , inputChunk   -- Int -> Resource String
     , inputBS      -- Int -> Resource ByteString
     , inputChunkBS -- Int -> Resource ByteString
+    , defaultLimit -- Int
 
     , setStatus -- StatusCode -> Resource ()
     , setHeader -- String -> String -> Resource ()
@@ -305,6 +306,10 @@ inputChunkBS limit
          return chunk
 
 
+defaultLimit :: Int
+defaultLimit = (-1)
+
+
 setStatus :: StatusCode -> Resource ()
 setStatus code
     = do driftTo DecidingHeader