$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}

_{MsgWorkflowWorkflowWorkflowHistoryActionLabel}

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

_{MsgWorkflowWorkflowWorkflowHistoryFromLabel}

$maybe (fromLbl, fromFin) <- mFromLbl #{fromLbl} $maybe icn <- fromFin #{icon icn} $nothing _{MsgWorkflowWorkflowWorkflowHistoryStateHidden}

_{MsgWorkflowWorkflowWorkflowHistoryToLabel}

$maybe (toLbl, toFin) <- whiTo #{toLbl} $maybe icn <- toFin #{icon icn} $nothing _{MsgWorkflowWorkflowWorkflowHistoryStateHidden} $if not (onull whiPayloadChanges)

_{MsgWorkflowWorkflowWorkflowHistoryPayloadLabel}

#{payloadLbl}

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

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