import Network.HTTP.Lucu.Utils
-data Part = Part Headers String
+data Part = Part Headers L8.ByteString
-- |This data type represents a form entry name, form value and
-- possibly an uploaded file name.
= FormData {
fdName :: String
, fdFileName :: Maybe String
- , fdContent :: String
+ , fdContent :: L8.ByteString
}
instance HasHeaders Part where
return $ Part hs body
-bodyP :: String -> Parser String
+bodyP :: String -> Parser L8.ByteString
bodyP boundary
- = do body <- many $
+ = do body <- manyChar $
do notFollowedBy $ do crlf
string "--"
string boundary