$maybe sortableP <- pSortable $with toSortable <- toSortable sortableP $forall OneColonnade{..} <- getColonnade dbtColonnade ^{widgetFromCell th $ withSortLinks $ toSortable oneColonnadeHead} $nothing $forall row <- rows $forall OneColonnade{..} <- getColonnade dbtColonnade ^{widgetFromCell td $ oneColonnadeEncode row}