12 lines
509 B
Plaintext
12 lines
509 B
Plaintext
<th .table__th *{attrs} :isSortable:.sortable :isSorted SortAsc:.sorted-asc :isSorted SortDesc:.sorted-desc>
|
|
$maybe flag <- sortableKey
|
|
$case directions
|
|
$of [SortAsc]
|
|
<a .table__th-link href=^{tblLink' $ setParam (wIdent "sorting") (Just $ toPathPiece (SortingSetting flag SortDesc))}>
|
|
^{widget}
|
|
$of _
|
|
<a .table__th-link href=^{tblLink' $ setParam (wIdent "sorting") (Just $ toPathPiece (SortingSetting flag SortAsc))}>
|
|
^{widget}
|
|
$nothing
|
|
^{widget}
|