storeAssigments :: [ReviewAssignment] -> IO ()
storeAssigments xs = forM_ xs $ \x -> databaseProviderReviews $ do
        exists <- liftIO $ existsReviewAssignment x
        unless (not exists) $ throw ReviewAssignmentExistsException
        void (insert x)

-- | Function checks if given ReviewAssignment exists.
storeAssigments :: [ReviewAssignment] -> IO ()
storeAssigments xs = forM_ xs $ \x -> databaseProviderReviews $ do
        exists <- liftIO $ existsReviewAssignment x
        unless (not exists) $ throw ReviewAssignmentExistsException
        void (insert x)

-- | Function checks if given ReviewAssignment exists.
storeAssigments xs = forM_ xs $ \x -> databaseProviderReviews $ do
        exists <- liftIO $ existsReviewAssignment x
        unless (not exists) $ throw ReviewAssignmentExistsException
        void (insert x)

-- | Function checks if given ReviewAssignment exists.