displayPlateCalc :: BarType -> Rational -> Text
displayPlateCalc ctype = displayPlates . plateCalc ctype
displayPlateCalc :: BarType -> Rational -> Text
displayPlateCalc ctype = displayPlates . plateCalc ctype
displayPlateCalc ctype = displayPlates . plateCalc ctype