link@(PageLink _ _ _)
-> formatPageLink -< (baseURI, link)
+ LineBreak attrs
+ -> ( eelem "br"
+ += (arrL id >>> attrFromPair)
+ ) -< attrs
+
+
+attrFromPair :: (ArrowXml a) => a (String, String) XmlTree
+attrFromPair = proc (name, value)
+ -> attr name (txt value) -<< ()
+
formatPageLink :: (ArrowXml a) => a (URI, InlineElement) XmlTree
formatPageLink