Mark sortable columns

2018-04-13 15:28:04 +02:00 · 2018-04-13 15:28:04 +02:00 · 9d65f94f51
commit 9d65f94f51
parent 4179182ad0
1 changed files with 1 additions and 2 deletions
--- a/src/Handler/Utils/Table/Pagination.hs
+++ b/src/Handler/Utils/Table/Pagination.hs
@ -161,10 +161,9 @@ dbTable PSValidator{..} DBTable{ dbtIdent = (toPathPiece -> dbtIdent), .. } = do
          }
          where
            directions = [dir | (k, dir) <- psSorting, Just k == sortableKey ]
-            sortableAttr = foldMap toAttr directions
+            sortableAttr = foldMap toAttr directions <> Html5.class_ "sortable"
            toAttr SortAsc = Html5.class_ "sorted-asc"
            toAttr SortDesc = Html5.class_ "sorted-desc"
-            -- TODO: add class "sortable" if column is sortable
    $(widgetFile "table/layout")
  where
    tblLayout :: Widget -> Handler Html