60 lines
2.3 KiB
Plaintext
60 lines
2.3 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>
|
|
$maybe actionLbl <- whiVia
|
|
#{actionLbl}
|
|
$nothing
|
|
<span .workflow-history--item-action-special>
|
|
_{MsgWorkflowWorkflowWorkflowHistoryActionAutomatic}
|
|
<div .workflow-history--item-states>
|
|
<div .workflow-history--item-state-from>
|
|
$maybe mFromLbl <- whiFrom
|
|
$maybe fromLbl <- mFromLbl
|
|
#{fromLbl}
|
|
$nothing
|
|
<span .workflow-history--item-state-special>
|
|
_{MsgWorkflowWorkflowWorkflowHistoryStateHidden}
|
|
<div .workflow-history--item-state-to>
|
|
#{whiTo}
|
|
$if not (onull whiPayloadChanges)
|
|
<div .workflow-history--item-payload-changes>
|
|
<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}
|