$newline never

$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
$#
$# SPDX-License-Identifier: AGPL-3.0-or-later

$maybe pitch <- mPitch
  <section .explanation>
    ^{pitch}
<section>
  <ul .workflow-instances>
    $forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc, canUpdate) <- instances
      <li>
        $maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc
          <p .workflow-instance--title>
            #{workflowInstanceDescriptionTitle}
        $nothing
          <p .workflow-instance--name>
            #{workflowInstanceName}

        <div .workflow-instance--actions .buttongroup>
          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName}
          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName}
          ^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName}
          $if canUpdate
            ^{updateForm workflowInstanceName}

        $maybe desc <- workflowInstanceDescriptionDescription =<< mDesc
          <div .workflow-instance--description>
            #{desc}