printContDispo ∷ ContDispo → Ascii
printContDispo d
- = A.fromAsciiBuilder $
+ = A.fromAsciiBuilder
( A.toAsciiBuilder (A.fromCIAscii $ dType d)
⊕
printParams (dParams d) )
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