constructRating :: SubjectId -> RatingInput -> Rating
constructRating sid input = Rating
    sid (sample input) (rating input) (position input) (repeats input) (practice input)
constructRating :: SubjectId -> RatingInput -> Rating
constructRating sid input = Rating
    sid (sample input) (rating input) (position input) (repeats input) (practice input)
constructRating sid input = Rating
    sid (sample input) (rating input) (position input) (repeats input) (practice input)