Removed unnecessary 'try'

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

diff --git a/Network/HTTP/Lucu/MultipartForm.hs b/Network/HTTP/Lucu/MultipartForm.hs
index 10d1f64276f07307c581e66d463492c3ef7358d6..db32a4cfa56484a92018911aef8dcdb325a50649 100644 (file)
--- a/Network/HTTP/Lucu/MultipartForm.hs
+++ b/Network/HTTP/Lucu/MultipartForm.hs
@@ -62,8 +62,7 @@ printContDispo d
 
 multipartFormP ∷ Ascii → Parser [(Text, FormData)]
 multipartFormP boundary
-    = try $
-      do parts ← many (partP boundary)
+    = do parts ← many $ try $ partP boundary
          _     ← string "--"
          _     ← string $ A.toByteString boundary
          _     ← string "--"
@@ -72,8 +71,7 @@ multipartFormP boundary
 
 partP ∷ Ascii → Parser Part
 partP boundary
-    = try $
-      do _    ← string "--"
+    = do _    ← string "--"
          _    ← string $ A.toByteString boundary
          crlf
          hs   ← headersP
@@ -83,8 +81,7 @@ partP boundary
 
 bodyP ∷ Ascii → Parser LS.ByteString
 bodyP boundary
-    = try $
-      do body ← manyCharsTill anyChar $
+    = do body ← manyCharsTill anyChar $
                     try $
                     do crlf
                        _ ← string "--"