$if not psShortcircuit $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} $else $forall row <- rows $forall OneColonnade{..} <- getColonnade dbtColonnade ^{widgetFromCell td $ oneColonnadeEncode row}