$newline never
$maybe g <- preview _grading sType
  _{SomeMessage g}, #
_{SomeMessage (classifySheetType sType)}
$maybe ((eName, epName, epNumber, partVisible, gradingVisible, eRoute), weight, _) <- preview _ExamPartPoints sType
  \ (
  <a href=@{eRoute}>
    #{eName}
  $if partVisible
    \ - _{fromMaybe (SomeMessage (MsgExamPartNumbered epNumber)) (fmap SomeMessage epName)}
    $if gradingVisible
      , _{SomeMessage MsgSheetTypeExamPartPointsWeight} _{SomeMessage (rationalToFixed3 weight)}
  )
