- -> returnA -< [ Paragraph [Image pName Nothing] ]
-
- _ -> if pIsBinary == "yes" then
- returnA -< [ Paragraph [ ObjectLink {
- objLinkPage = pName
- , objLinkText = Just $ fromMaybe (defaultFileName pType pName) pFileName
- }
+ -- <img src="data:image/png;base64,..." />
+ -> returnA -< [ Paragraph [Image (Left $ fromJust dataURI) Nothing] ]
+
+ _ -> if isJust dataURI then
+ -- <a href="data:application/zip;base64,...">foo.zip</a>
+ returnA -< [ Paragraph [ Anchor
+ [("href", show dataURI)]
+ [Text (fromMaybe (defaultFileName pType pName) pFileName)]