-- Convert quality to numeric value for SuperMemo algorithm.
qualityLevel :: Quality -> Rational
qualityLevel = toRational . fromEnum
qualityLevel :: Quality -> Rational
qualityLevel = toRational . fromEnum
qualityLevel = toRational . fromEnum