X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=99c4bebb16e18c161ad72b0313300b2ff204857f;hp=f2212ab104b3052a47fd91de90050f0ccf31a6cd;hb=17020e406a20cbef8ec17594868db559c4c5a5db;hpb=ca338174155913a969808d7b20193973394e474e

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index f2212ab..99c4beb 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -41,6 +41,7 @@ data AugmentedRequest
 data RequestBodyLength
     = Fixed !Int
     | Chunked
+    deriving (Eq, Show)
 
 preprocess ∷ Text
            → PortNumber