@@ -157,7 +157,7 @@ handleData metadata (MimeBundle mb) =
158 dataBlock :: PandocMonad m => (MimeType, MimeData) -> m B.Blocks
158 dataBlock :: PandocMonad m => (MimeType, MimeData) -> m B.Blocks
159 dataBlock (mt, d)
159 dataBlock (mt, d)
160− | "image/" `T.isPrefixOf` mt
160+ | "image/" `T.isPrefixOf` mt || mt == "application/pdf"
162 -- normally metadata maps from mime types to key-value map;
162 -- normally metadata maps from mime types to key-value map;
163 -- but not always...
163 -- but not always...