X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRequest.hs;fp=Network%2FHTTP%2FLucu%2FRequest.hs;h=d23dc6331790455b347f26f03371126ed069ee30;hp=b690c3e612435844eef847ff8feffbec1b39407e;hb=ca338174155913a969808d7b20193973394e474e;hpb=2bb7a0baa35dadb5d36d3f9fa98bd242baabc6d1

diff --git a/Network/HTTP/Lucu/Request.hs b/Network/HTTP/Lucu/Request.hs
index b690c3e..d23dc63 100644
--- a/Network/HTTP/Lucu/Request.hs
+++ b/Network/HTTP/Lucu/Request.hs
@@ -1,15 +1,15 @@
 {-# LANGUAGE
     OverloadedStrings
   , UnicodeSyntax
+  , ViewPatterns
   #-}
-{-# OPTIONS_HADDOCK prune #-}
-
 -- |Definition of things related on HTTP request.
 --
 -- In general you don't have to use this module directly.
 module Network.HTTP.Lucu.Request
     ( Method(..)
     , Request(..)
+    , reqHasBody
     , requestP
     )
     where
@@ -51,6 +51,11 @@ instance HasHeaders Request where
     getHeaders = reqHeaders
     setHeaders req hdr = req { reqHeaders = hdr }
 
+-- |Returns 'True' iff the 'Request' must have an entity body.
+reqHasBody ∷ Request → Bool
+reqHasBody (reqMethod → m)
+    = m ≡ POST ∨ m ≡ PUT
+
 requestP ∷ Parser Request
 requestP = do skipMany crlf
               (method, uri, version) ← requestLineP