showLinkAttr :: LinkRelation -> String{-URI-} -> String
showLinkAttr lr s = showLinkRelation lr ++ '=':'"':concatMap escQ s ++ "\""
 where
  escQ '"' = "&dquot;"
  escQ x   = [x]
showLinkAttr :: LinkRelation -> String{-URI-} -> String
showLinkAttr lr s = showLinkRelation lr ++ '=':'"':concatMap escQ s ++ "\""
 where
  escQ '"' = "&dquot;"
  escQ x   = [x]
showLinkAttr lr s = showLinkRelation lr ++ '=':'"':concatMap escQ s ++ "\""
 where
  escQ '"' = "&dquot;"
  escQ x   = [x]