From 071df906da6c41afa226f944a90c2f294eeba243 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 26 Jul 2021 16:30:31 +0200 Subject: [PATCH] fix: build --- src/Handler/Workflow/Workflow/List.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Workflow/Workflow/List.hs b/src/Handler/Workflow/Workflow/List.hs index b68469a7d..a884afb36 100644 --- a/src/Handler/Workflow/Workflow/List.hs +++ b/src/Handler/Workflow/Workflow/List.hs @@ -114,7 +114,7 @@ getAdminWorkflowWorkflowListR = workflowWorkflowList headings def $ const E.true where headings = (MsgAdminWorkflowWorkflowListTitle, MsgAdminWorkflowWorkflowListHeading) getTopWorkflowWorkflowListR :: Handler Html -getTopWorkflowWorkflowListR = workflowsDisabledWarnings (headings ^. _1) (headings ^. _2) workflowWorkflowList headings def . views queryWorkflowWorkflow $ isTopWorkflowScopeSql . (E.^. WorkflowWorkflowScope) +getTopWorkflowWorkflowListR = workflowsDisabledWarning (headings ^. _1) (headings ^. _2) . workflowWorkflowList headings def . views queryWorkflowWorkflow $ isTopWorkflowScopeSql . (E.^. WorkflowWorkflowScope) where headings = (MsgWorkflowWorkflowListTopTitle, MsgWorkflowWorkflowListTopHeading)