^{cellContents}
$maybe flag <- sortableKey
  $case directions
    $of [SortAsc]
      <a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-desc")}>desc
    $of [SortDesc]
      <a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-asc")}>asc
    $of []
      <a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-desc")}>desc
      <a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-asc")}>asc
    $of _
$nothing