11 lines
310 B
Plaintext
11 lines
310 B
Plaintext
$maybe flag <- sortableKey
|
|
$case directions
|
|
$of [SortAsc]
|
|
<a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-desc")}>
|
|
^{cellContents}
|
|
$of _
|
|
<a href=#{tblLink $ setParam (wIdent "sorting") (Just $ flag <> "-asc")}>
|
|
^{cellContents}
|
|
$nothing
|
|
^{cellContents}
|