$maybe prioView <- mApplyFormView' >>= afvPriority ^{fvInput prioView} $nothing _{MsgAllocationNoApplication} #{courseName} $maybe aInst <- courseApplicationsInstructions

#{aInst} $if hasApplicationTemplate

#{iconRegisterTemplate} _{MsgCourseApplicationTemplateApplication} $maybe ApplicationFormView{ ..} <- mApplyFormView'

^{renderFieldViews FormStandard afvForm} ^{snd afvButtons}