Rename numAsWt to more appropriate widenInteger.

[match/match.git] / program / PMInstanceGenerator.hs

diff --git a/program/PMInstanceGenerator.hs b/program/PMInstanceGenerator.hs
index 0f78b02..4324546 100644 (file)
--- 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