$maybe user <- whiUser $case user $of WHIASelf _{MsgWorkflowWorkflowWorkflowHistoryUserSelf} $of WHIAOther mUser $maybe Entity _ User{userDisplayName, userSurname} <- mUser ^{nameWidget userDisplayName userSurname} $nothing _{MsgWorkflowWorkflowWorkflowHistoryUserNotLoggedIn} $of WHIAGone _{MsgWorkflowWorkflowWorkflowHistoryUserGone} $of WHIAHidden _{MsgWorkflowWorkflowWorkflowHistoryUserHidden} $nothing _{MsgWorkflowWorkflowWorkflowHistoryUserAutomatic}

^{formatTimeW SelFormatDateTime whiTime}

$maybe actionLbl <- whiVia #{actionLbl} $nothing _{MsgWorkflowWorkflowWorkflowHistoryActionAutomatic}

$maybe mFromLbl <- whiFrom $maybe fromLbl <- mFromLbl #{fromLbl} $nothing _{MsgWorkflowWorkflowWorkflowHistoryStateHidden}

#{whiTo} $if not (onull whiPayloadChanges)

#{payloadLbl}

$if is _Nothing mFileRoute && null newPayload — $else

_{MsgWorkflowPayloadFiles} $forall pItem <- newPayload
^{payloadToWidget pItem}