)
where
-import Data.ByteString.Base (LazyByteString(..))
import qualified Data.ByteString.Char8 as C8
+import qualified Data.ByteString.Lazy.Char8 as L8
import Data.Char
import Data.List
import Network.HTTP.Lucu.Abortion
Nothing
-> abortPurely BadRequest []
(Just "There is a part without Content-Disposition in the multipart/form-data.")
- Just dispo
- -> case parse contDispoP (LPS [dispo]) of
+ Just dispoStr
+ -> case parse contDispoP (L8.fromChunks [dispoStr]) of
(# Success dispo, _ #)
-> (getName dispo, body)
(# _, _ #)
-> abortPurely BadRequest []
- (Just $ "Unparsable Content-Disposition: " ++ C8.unpack dispo)
+ (Just $ "Unparsable Content-Disposition: " ++ C8.unpack dispoStr)
where
getName :: ContDispo -> String
getName dispo@(ContDispo dType dParams)