printContDispo ∷ ContDispo → Ascii
printContDispo d
- = A.fromAsciiBuilder $
+ = A.fromAsciiBuilder
( A.toAsciiBuilder (A.fromCIAscii $ dType d)
⊕
printParams (dParams d) )
{-# INLINEABLE partToFormPair #-}
partToFormPair pt
| dType (ptContDispo pt) ≡ "form-data"
- = do name ← partName pt
+ = do name ← partName pt
let fname = partFileName pt
let fd = FormData {
fdFileName = fname
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