minor cleanups

This commit is contained in:
Vyacheslav Matyukhin 2022-09-14 14:48:58 +04:00
parent 02c84983a4
commit 294acffb89
No known key found for this signature in database
GPG Key ID: 3D2A774C5489F96C
3 changed files with 10 additions and 15 deletions

View File

@ -212,9 +212,9 @@ module FnDefinition = {
} }
let make = (~name, ~inputs, ~run, ()): t => { let make = (~name, ~inputs, ~run, ()): t => {
name: name, name,
inputs: inputs, inputs,
run: run, run,
} }
} }
@ -240,14 +240,14 @@ module Function = {
~isExperimental=false, ~isExperimental=false,
(), (),
): t => { ): t => {
name: name, name,
nameSpace: nameSpace, nameSpace,
definitions: definitions, definitions,
output: output, output,
examples: examples |> E.O.default([]), examples: examples |> E.O.default([]),
isExperimental: isExperimental, isExperimental,
requiresNamespace: requiresNamespace, requiresNamespace,
description: description, description,
} }
let toJson = (t: t): functionJson => { let toJson = (t: t): functionJson => {

View File

@ -393,8 +393,6 @@ let library = E.A.concatMany([
makeProxyFn("truncateLeft", [FRTypeDist, FRTypeNumber]), makeProxyFn("truncateLeft", [FRTypeDist, FRTypeNumber]),
makeProxyFn("truncateRight", [FRTypeDist, FRTypeNumber]), makeProxyFn("truncateRight", [FRTypeDist, FRTypeNumber]),
makeProxyFn("truncate", [FRTypeDist, FRTypeNumber, FRTypeNumber]), makeProxyFn("truncate", [FRTypeDist, FRTypeNumber, FRTypeNumber]),
// // FIXME - impossible to implement with FR!!!
// | ("mx" | "mixture", args) => Helpers.mixture(args, ~env)->Some
makeProxyFn("log", [FRTypeDist]), makeProxyFn("log", [FRTypeDist]),
makeProxyFn("log10", [FRTypeDist]), makeProxyFn("log10", [FRTypeDist]),
makeProxyFn("unaryMinus", [FRTypeDist]), makeProxyFn("unaryMinus", [FRTypeDist]),

View File

@ -5,7 +5,6 @@ type rec value =
| IEvArray(arrayValue) | IEvArray(arrayValue)
| IEvArrayString(array<string>) | IEvArrayString(array<string>)
| IEvBool(bool) | IEvBool(bool)
// | IEvCall(string) // External function call
| IEvDate(Js.Date.t) | IEvDate(Js.Date.t)
| IEvDeclaration(lambdaDeclaration) | IEvDeclaration(lambdaDeclaration)
| IEvDistribution(DistributionTypes.genericDist) | IEvDistribution(DistributionTypes.genericDist)
@ -14,7 +13,6 @@ type rec value =
| IEvNumber(float) | IEvNumber(float)
| IEvRecord(map) | IEvRecord(map)
| IEvString(string) | IEvString(string)
// | IEvSymbol(string)
| IEvTimeDuration(float) | IEvTimeDuration(float)
| IEvType(map) | IEvType(map)
| IEvTypeIdentifier(string) | IEvTypeIdentifier(string)
@ -26,7 +24,6 @@ and lambdaBody = (array<value>, environment, reducerFn) => value
@genType.opaque @genType.opaque
and lambdaValue = { and lambdaValue = {
parameters: array<string>, parameters: array<string>,
// context: nameSpace,
body: (array<value>, environment, reducerFn) => value, body: (array<value>, environment, reducerFn) => value,
} }
@genType.opaque and lambdaDeclaration = Declaration.declaration<lambdaValue> @genType.opaque and lambdaDeclaration = Declaration.declaration<lambdaValue>