X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/8723ed6adebc35a25ca240acdb587444c85fb44f..refs/heads/master:/program/PMInstanceGenerator.hs

diff --git a/program/PMInstanceGenerator.hs b/program/PMInstanceGenerator.hs
index 0f78b02..4324546 100644
--- a/program/PMInstanceGenerator.hs
+++ b/program/PMInstanceGenerator.hs
@@ -35,7 +35,7 @@ data ProposalInfo = ProposalInfo {
 }
 
 randomTopic cfg = withWeight $
-	map (\i -> (numAsWt (i+1) ** topicZipfExponent cfg, return i))
+	map (\i -> (widenInteger (i+1) ** topicZipfExponent cfg, return i))
 		[0 .. numTopics cfg - 1]
 
 randomProposalInfo cfg = do