$newline never
$maybe WorkflowCurrentState{..} <- workflowState
  <section>
    <h2>
      _{MsgWorkflowWorkflowWorkflowStateHeading}

    <div .workflow-state>
      <dl .deflist>
        <dt .deflist__dt>
          _{MsgWorkflowWorkflowWorkflowStateStateLabel}
        <dd .deflist__dd>
          $maybe stLbl <- wcsState
              #{stLbl}
          $nothing
            <span .workflow-state--state-special>
              _{MsgWorkflowWorkflowWorkflowStateStateHidden}

    $forall msg <- wcsMessages
      ^{notification NotificationBroad msg}
  
    $if not (onull wcsPayload)
      <div .workflow-payload>
        <div .workflow-payload--label>
          _{MsgWorkflowWorkflowWorkflowPayloadHeading}
        <dl .deflist>
          $forall (payloadLbl, (newPayload, mFileRoute)) <- wcsPayload
            <dt .deflist__dt>
              #{payloadLbl}
            <dd .deflist__dd>
              $if is _Nothing mFileRoute && null newPayload
                —
              $else
                <ul .list--iconless>
                  $maybe fileRoute <- mFileRoute
                    <li>
                      <a href=#{fileRoute}>
                        _{MsgWorkflowPayloadFiles}
                  $forall pItem <- newPayload
                    <li>
                      ^{payloadToWidget pItem}
  
$maybe edgeView <- mEdgeView
  <section>
    <h2>
      _{MsgWorkflowWorkflowWorkflowEdgeFormHeading}
    ^{edgeView}
  
<section>
  <h2>
    _{MsgWorkflowWorkflowWorkflowHistoryHeading}

  <ul .workflow-history>
    $forall histItem <- workflowHistory
      ^{historyToWidget histItem}