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