Add postMultipartForm

[ocramz]

closes #76

[ocramz]

Hi @sol , how do you do? What do you think of this patch? I'd find it very useful for testing scotty, so I hope you'll accept it here. Thanks!

[ocramz]

@sol ping!

[ocramz]

@sol ping!

[ocramz]

@sol ping!

[sol]

Unless you're willing to get this bikeshedded to death, a separate package (e.g. hspec-wai-multipart) might be a better option for this.

But if you're inclined to get this upstream, this could be a start:

data FormData = FormData {
  boundary :: ByteString
, parts :: [(String,  Part)]
}

data Part = Part {
  filename :: Maybe FilePath
, contentType :: Maybe MimeType
, body :: ByteString
}

instance IsString Part where
  fromString = Part Nothing Nothing . encodeUtf8

filePart :: FilePath -> ByteString -> Part
filePart name body = Part (Just name) (Just . defaultMimeLookup $ fromString name) body

postMultipartForm :: ByteString -> [(String, Part)] -> WaiSession st SResponse
postMultipartForm path = postFormData path . FormData defaultBoundary

defaultBoundary :: ByteString
defaultBoundary = "..." -- some (base 64?) encoded randomness from random.org that is large enough so that it is effectively unique

postFormData :: ByteString -> FormData -> WaiSession st SResponse
postFormData = ...

Usage:

postMultipartForm "/update-profile"
  [("name", "Joe Doe"), ("picture", filePart "me.jpg" imageData)]

Note that Part could also be

data Part = Part {
  filename :: Maybe FilePath
, contentType :: Maybe MimeType
, headers :: [Header]
, body :: ByteString
}

or even

data Part = Part {
  filename :: Maybe FilePath
, headers :: [Header]
, body :: ByteString
}

[ocramz]

I appreciate the feedback, bikeshedding is part of what makes OSS great!