77 lines
2.9 KiB
Plaintext
77 lines
2.9 KiB
Plaintext
$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
|
|
#{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
|
|
#{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}
|