13 lines
412 B
Plaintext
13 lines
412 B
Plaintext
<table>
|
|
$maybe sortableP <- pSortable
|
|
$with toSortable <- toSortable sortableP
|
|
<thead>
|
|
$forall OneColonnade{..} <- getColonnade dbtColonnade
|
|
^{widgetFromCell th $ withSortLinks $ toSortable oneColonnadeHead}
|
|
$nothing
|
|
<tbody>
|
|
$forall row <- rows
|
|
<tr>
|
|
$forall OneColonnade{..} <- getColonnade dbtColonnade
|
|
^{widgetFromCell td $ oneColonnadeEncode row}
|