@@ -599,10 +599,11 @@ parseInline (Elem e) =
599 (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
599 (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
600 (elAttribs e))) "" <$> innerInlines
600 (elAttribs e))) "" <$> innerInlines
601 "link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
601 "link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
602− Just href -> link href "" <$> innerInlines
602+ Just href -> link href "" <$> innerInlines
603+ _ -> link ('#':anchor) "" <$> innerInlines
603− _ -> link ("#"++(fromMaybe "" (lookupAttrBy
604+ where anchor = fromMaybe "" $ lookupAttrBy
604− (\attr -> qName attr == "linkend")
605+ (\attr -> qName attr == "linkend")
605− (elAttribs e)))) "" <$> innerInlines
606+ (elAttribs e)
606 "emphasis" -> case lookupAttrBy (\attr -> qName attr == "role")
607 "emphasis" -> case lookupAttrBy (\attr -> qName attr == "role")
607 (elAttribs e) of
608 (elAttribs e) of
608 Just "strong" -> strong <$> innerInlines
609 Just "strong" -> strong <$> innerInlines