---type ProposalAuthors = Maybe Int
-
-type ProposalInfo = (ProposalTopics, Wt)
-
-randomProposalTopics = do
- t1 <- mrandomR (0, numTopics-1)
- withProb [(0.5, return $ PTopic1 t1)] (do
- t2 <- filterRandomized (/= t1) $ mrandomR (0, numTopics-1)
- return $ PTopic2 t1 t2
- )
-
--- Add conflict of interest later.
-{--
-randomProposalAuthors = do
- withProb [(0.5, return [])] (do
- a1 <- mrandomR (0, numRvrs-1)
- withProb [(0.5, return [a1])] (do
- a2 <- filterRandomized (/= a1) $ mrandomR (0, numRvrs-1)
- return [a1,a2]
- )
- )
---}
+data ProposalInfo = ProposalInfo {
+ piTopics :: ProposalTopics,
+ piDifficulty :: Wt
+}