Non-chunked input

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

diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs
index 7405975d5f2a0752968ed899a1aeadb6a0250916..24ae4b254a8e548593f2927ae28eb9c4ec4a321e 100644 (file)
--- 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