diff --git a/packages/squiggle-lang/src/rescript/GenericDist/GenericDist.resi b/packages/squiggle-lang/src/rescript/GenericDist/GenericDist.resi index f567f6be..46db83a7 100644 --- a/packages/squiggle-lang/src/rescript/GenericDist/GenericDist.resi +++ b/packages/squiggle-lang/src/rescript/GenericDist/GenericDist.resi @@ -30,7 +30,7 @@ let truncate: ( ~toPointSetFn: toPointSetFn, ~leftCutoff: option=?, ~rightCutoff: option=?, - unit, + unit ) => result let algebraicCombination: ( diff --git a/packages/squiggle-lang/src/rescript/pointSetDist/DistPlus.res b/packages/squiggle-lang/src/rescript/pointSetDist/DistPlus.res index 39f355ab..e1ece63d 100644 --- a/packages/squiggle-lang/src/rescript/pointSetDist/DistPlus.res +++ b/packages/squiggle-lang/src/rescript/pointSetDist/DistPlus.res @@ -9,12 +9,11 @@ let make = ~pointSetDist, ~squiggleString, ~domain=Complete, - ~unit=UnspecifiedDistribution, (), ) : t => { let integral = pointSetDistIntegral(pointSetDist); - {pointSetDist, domain, integralCache: integral, unit, squiggleString}; + {pointSetDist, domain, integralCache: integral, squiggleString}; }; let update = @@ -22,14 +21,12 @@ let update = ~pointSetDist=?, ~integralCache=?, ~domain=?, - ~unit=?, ~squiggleString=?, t: t, ) => { pointSetDist: E.O.default(t.pointSetDist, pointSetDist), integralCache: E.O.default(t.integralCache, integralCache), domain: E.O.default(t.domain, domain), - unit: E.O.default(t.unit, unit), squiggleString: E.O.default(t.squiggleString, squiggleString), }; diff --git a/packages/squiggle-lang/src/rescript/pointSetDist/PointSetTypes.res b/packages/squiggle-lang/src/rescript/pointSetDist/PointSetTypes.res index ded9c02d..e2e17a94 100644 --- a/packages/squiggle-lang/src/rescript/pointSetDist/PointSetTypes.res +++ b/packages/squiggle-lang/src/rescript/pointSetDist/PointSetTypes.res @@ -71,25 +71,14 @@ type generationSource = | SquiggleString(string) | Shape(pointSetDist) -type distributionUnit = - | UnspecifiedDistribution - @genType type distPlus = { pointSetDist: pointSetDist, domain: domain, integralCache: continuousShape, - unit: distributionUnit, squiggleString: option, } -module DistributionUnit = { - let toJson = (distributionUnit: distributionUnit) => - switch distributionUnit { - | _ => Js.Null.fromOption(None) - } -} - module Domain = { let excludedProbabilityMass = (t: domain) => switch t {