12 lines
357 B
Plaintext
12 lines
357 B
Plaintext
$newline never
|
|
$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}
|