13 lines
465 B
Plaintext
13 lines
465 B
Plaintext
^{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
|