@@ -261,7 +261,8 @@ parsePieces sink bound src = do
261 let fnBS = S8.pack "filename"
261 let fnBS = S8.pack "filename"
262 return (ct, name, lookup fnBS attrs)
262 return (ct, name, lookup fnBS attrs)
263 case x of
263 case x of
264− Just (Just ct, name, Just filename) -> do
264+ Just (mct, name, Just filename) -> do
265+ let ct = fromMaybe "application/octet-stream" mct
265 seed <- sinkInit sink
266 seed <- sinkInit sink
266 (seed', wasFound, msrc''') <-
267 (seed', wasFound, msrc''') <-
267 sinkTillBound bound src'' (sinkAppend sink) seed
268 sinkTillBound bound src'' (sinkAppend sink) seed