-- | Creates list of review assignments for given reviewer and list of reviees.
createReviewList :: Assignment -> UserIdentifier -> RVar [UserIdentifier] -> Int -> ReviewRole -> IO [ReviewAssignment]
createReviewList a x ys n r = do
    list <- runRVar ys DevRandom
    forM list $ \y -> return (ReviewAssignment x y r a)

-- | Removes given id from list.
createReviewList :: Assignment -> UserIdentifier -> RVar [UserIdentifier] -> Int -> ReviewRole -> IO [ReviewAssignment]
createReviewList a x ys n r = do
    list <- runRVar ys DevRandom
    forM list $ \y -> return (ReviewAssignment x y r a)

-- | Removes given id from list.
createReviewList a x ys n r = do
    list <- runRVar ys DevRandom
    forM list $ \y -> return (ReviewAssignment x y r a)

-- | Removes given id from list.