diff --git a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res index 50f8faa9..1335e990 100644 --- a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res +++ b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res @@ -124,7 +124,7 @@ module WithScalarAnswer = { ~estimatePdf: float => float, ~answer: scalar, ~priorPdf: float => float, - ): result => { + ): result => { let numerator = answer->estimatePdf let priorDensityOfAnswer = answer->priorPdf if numerator < 0.0 || priorDensityOfAnswer < 0.0 { @@ -162,7 +162,7 @@ module TwoScalars = { minusScaledLogOfQuotient(~esti=estimate, ~answ=answer) } - let scoreWithPrior = (~estimate: float, ~answer: float, ~prior: float) => + let scoreWithPrior = (~estimate: scalar, ~answer: scalar, ~prior: scalar) => if answer == 0.0 { 0.0->Ok } else if estimate == 0.0 || prior == 0.0 {