X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMultipartForm.hs;h=7ddcbd0f707e144a2ed450a053ee32fd0566d7fd;hp=db32a4cfa56484a92018911aef8dcdb325a50649;hb=4498b6a;hpb=b923d454928e3d01134b15d6072b6d3edf7a15ca

diff --git a/Network/HTTP/Lucu/MultipartForm.hs b/Network/HTTP/Lucu/MultipartForm.hs
index db32a4c..7ddcbd0 100644
--- a/Network/HTTP/Lucu/MultipartForm.hs
+++ b/Network/HTTP/Lucu/MultipartForm.hs
@@ -140,8 +140,7 @@ getContDispo hdr
                                           ])
 
 contDispoP ∷ Parser ContDispo
-contDispoP = try $
-             do dispoType ← A.toCIAscii <$> token
+contDispoP = do dispoType ← A.toCIAscii <$> token
                 params    ← many paramP
                 return $ ContDispo dispoType params
     where