From 454a91702bdbbed7e473ef94a603bcea2e716406 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 6 May 2021 14:22:22 +0200
Subject: [PATCH] fix(workflow-workflow-list): restore default sorting

---
 src/Handler/Workflow/Workflow/List.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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