diff --git a/src/Handler/Workflow/Workflow/List.hs b/src/Handler/Workflow/Workflow/List.hs index 5164e67fc..b29e0ff44 100644 --- a/src/Handler/Workflow/Workflow/List.hs +++ b/src/Handler/Workflow/Workflow/List.hs @@ -494,11 +494,11 @@ workflowWorkflowList (title, heading) WWListColumns{..} sqlPred = do return JsonWorkflowWorkflow{..} workflowWorkflowDBTableValidator = def - -- & defaultSorting defSort + & defaultSorting defSort & forceFilter "may-access" (Any True) - -- defSort | wwListColumnInstance = SortAscBy "instance" : defSort' - -- | otherwise = defSort' - -- where defSort' = [SortAscBy "final", SortAscBy "current-state", SortDescBy "last-action-time"] + defSort | wwListColumnInstance = SortAscBy "instance" : defSort' + | otherwise = defSort' + where defSort' = [SortAscBy "final", SortAscBy "current-state", SortDescBy "last-action-time"] in dbTableDB' workflowWorkflowDBTableValidator workflowWorkflowDBTable siteLayoutMsg heading $ do