15 lines
480 B
Plaintext
15 lines
480 B
Plaintext
^{cellContents}
|
|
$maybe flag <- sortableKey
|
|
<br>
|
|
$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
|