17 lines
521 B
Plaintext
17 lines
521 B
Plaintext
$newline never
|
|
|
|
$# SPDX-FileCopyrightText: 2022 Felix Hamann <felix.hamann@campus.lmu.de>,Gregor Kleen <gregor.kleen@ifi.lmu.de>
|
|
$#
|
|
$# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
$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}
|