$newline never
<li .workflow-history--item :is (_Just . _WHIASelf) whiUser:.workflow-history-item__self>
  <div .workflow-history--item-user>
    $maybe user <- whiUser
      $case user
        $of WHIASelf
          <span .workflow-history--item-user-special>
            _{MsgWorkflowWorkflowWorkflowHistoryUserSelf}
        $of WHIAOther mUser
          $maybe Entity _ User{userDisplayName, userSurname} <- mUser
            ^{nameWidget userDisplayName userSurname}
          $nothing
            <span .workflow-history--item-user-special>
              _{MsgWorkflowWorkflowWorkflowHistoryUserNotLoggedIn}
        $of WHIAGone
            <span .workflow-history--item-user-special>
              _{MsgWorkflowWorkflowWorkflowHistoryUserGone}
        $of WHIAHidden
            <span .workflow-history--item-user-special>
              _{MsgWorkflowWorkflowWorkflowHistoryUserHidden}
    $nothing
      <span .workflow-history--item-user-special>
        _{MsgWorkflowWorkflowWorkflowHistoryUserAutomatic}
  <div .workflow-history--item-time>
    ^{formatTimeW SelFormatDateTime whiTime}
  <div .workflow-history--item-action-states>
    <dl .deflist>
      <dt .deflist__dt>
        _{MsgWorkflowWorkflowWorkflowHistoryActionLabel}
      <dd .deflist__dd>
        $maybe actionLbl <- whiVia
          #{actionLbl}
        $nothing
          <span .workflow-history--item-action-special>
            _{MsgWorkflowWorkflowWorkflowHistoryActionAutomatic}
      $maybe mFromLbl <- whiFrom
        <dt .deflist__dt>
          _{MsgWorkflowWorkflowWorkflowHistoryFromLabel}
        <dd .deflist__dd>
          $maybe (fromLbl, fromFin) <- mFromLbl
            #{fromLbl}
            $maybe icn <- fromFin
              &nbsp;#{icon icn}
          $nothing
            <span .workflow-history--item-state-special>
              _{MsgWorkflowWorkflowWorkflowHistoryStateHidden}
      <dt .deflist__dt>
        _{MsgWorkflowWorkflowWorkflowHistoryToLabel}
      <dd .deflist__dd>
        $maybe (toLbl, toFin) <- whiTo
          #{toLbl}
          $maybe icn <- toFin
            &nbsp;#{icon icn}
        $nothing
          <span .workflow-history--item-state-special>
            _{MsgWorkflowWorkflowWorkflowHistoryStateHidden}
  $if not (onull whiPayloadChanges)
    <div .workflow-history--item-payload-changes>
      <div .workflow-history--item-payload-changes-label>
        _{MsgWorkflowWorkflowWorkflowHistoryPayloadLabel}
      <dl .deflist>
        $forall (payloadLbl, (newPayload, mFileRoute)) <- whiPayloadChanges
          <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}
