showLinkRelation :: LinkRelation -> String
showLinkRelation lr =
  case lr of
   LinkAlternate   -> "alternate"
   LinkCurrent     -> "current"
   LinkEnclosure   -> "enclosure"
   LinkEdit        -> "edit"
   LinkEditMedia   -> "edit-media"
   LinkFirst       -> "first"
   LinkLast        -> "last"
   LinkLicense     -> "license"
   LinkNext        -> "next"
   LinkNextArchive -> "next-archive"
   LinkPayment     -> "payment"
   LinkPrevArchive -> "prev-archive"
   LinkPrevious    -> "previous"
   LinkRelated     -> "related"
   LinkReplies     -> "replies"
   LinkSelf        -> "self"
   LinkVia         -> "via"
   LinkOther s     -> s
showLinkRelation :: LinkRelation -> String
showLinkRelation lr =
  case lr of
   LinkAlternate   -> "alternate"
   LinkCurrent     -> "current"
   LinkEnclosure   -> "enclosure"
   LinkEdit        -> "edit"
   LinkEditMedia   -> "edit-media"
   LinkFirst       -> "first"
   LinkLast        -> "last"
   LinkLicense     -> "license"
   LinkNext        -> "next"
   LinkNextArchive -> "next-archive"
   LinkPayment     -> "payment"
   LinkPrevArchive -> "prev-archive"
   LinkPrevious    -> "previous"
   LinkRelated     -> "related"
   LinkReplies     -> "replies"
   LinkSelf        -> "self"
   LinkVia         -> "via"
   LinkOther s     -> s
showLinkRelation lr =
  case lr of
   LinkAlternate   -> "alternate"
   LinkCurrent     -> "current"
   LinkEnclosure   -> "enclosure"
   LinkEdit        -> "edit"
   LinkEditMedia   -> "edit-media"
   LinkFirst       -> "first"
   LinkLast        -> "last"
   LinkLicense     -> "license"
   LinkNext        -> "next"
   LinkNextArchive -> "next-archive"
   LinkPayment     -> "payment"
   LinkPrevArchive -> "prev-archive"
   LinkPrevious    -> "previous"
   LinkRelated     -> "related"
   LinkReplies     -> "replies"
   LinkSelf        -> "self"
   LinkVia         -> "via"
   LinkOther s     -> s