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