diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs
index 7ddc207eb..8969d1a7d 100644
--- a/src/Handler/Utils/Table/Pagination.hs
+++ b/src/Handler/Utils/Table/Pagination.hs
@@ -161,9 +161,9 @@ dbTable PSValidator{..} DBTable{ dbtIdent = (toPathPiece -> dbtIdent), .. } = do
           }
           where
             directions = [dir | (k, dir) <- psSorting, Just k == sortableKey ]
-            sortableAttr = foldMap toAttr directions <> Html5.class_ "sortable"
-            toAttr SortAsc = Html5.class_ "sorted-asc"
-            toAttr SortDesc = Html5.class_ "sorted-desc"
+            sortableAttr = Html5.class_ . fromString . unwords $ "sortable" : foldMap toAttr directions
+            toAttr SortAsc = ["sorted-asc"]
+            toAttr SortDesc = ["sorted-desc"]
     $(widgetFile "table/layout")
   where
     tblLayout :: Widget -> Handler Html