X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMultipartForm.hs;h=7d0866cd4225fe0ec54f8c77f84a01fc24e5dbe6;hp=c36b81905cb147ee37eb28c1463bcf8e51069dee;hb=6126eb9cbe5b38c300d855d96d2238831e59b5dd;hpb=558205096e7f51da7018458d173584ac31808082

diff --git a/Network/HTTP/Lucu/MultipartForm.hs b/Network/HTTP/Lucu/MultipartForm.hs
index c36b819..7d0866c 100644
--- a/Network/HTTP/Lucu/MultipartForm.hs
+++ b/Network/HTTP/Lucu/MultipartForm.hs
@@ -53,7 +53,7 @@ data ContDispo
 
 printContDispo ∷ ContDispo → Ascii
 printContDispo d
-    = A.fromAsciiBuilder $
+    = A.fromAsciiBuilder
       ( A.toAsciiBuilder (A.fromCIAscii $ dType d)
         ⊕
         printParams (dParams d) )
@@ -122,7 +122,7 @@ getContDispo ∷ Monad m ⇒ Headers → m ContDispo
 getContDispo hdr
     = case getHeader "Content-Disposition" hdr of
         Nothing
-            → fail ("There is a part without Content-Disposition in the multipart/form-data.")
+            → fail "There is a part without Content-Disposition in the multipart/form-data."
         Just str
             → let p  = do d ← contDispoP
                           endOfInput