@@ -511,10 +511,10 @@ convertWithOpts opts = do
511 ( (if isJust (optExtractMedia opts)
511 ( (if isJust (optExtractMedia opts)
512 then fillMediaBag (writerSourceURL writerOptions)
512 then fillMediaBag (writerSourceURL writerOptions)
513 else return)
513 else return)
514− >=> maybe return extractMedia (optExtractMedia opts)
515 >=> return . flip (foldr addMetadata) metadata
514 >=> return . flip (foldr addMetadata) metadata
516− >=> applyTransforms transforms
517 >=> applyLuaFilters datadir (optLuaFilters opts) format
515 >=> applyLuaFilters datadir (optLuaFilters opts) format
516+ >=> maybe return extractMedia (optExtractMedia opts)
517+ >=> applyTransforms transforms
518 >=> applyFilters readerOpts datadir filters' [format]
518 >=> applyFilters readerOpts datadir filters' [format]
520 media <- getMediaBag
520 media <- getMediaBag