quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

missing gentype

Browse Source
This commit is contained in:
Umur Ozkul 2022-08-17 19:32:11 +02:00
parent a8c7297621
commit 55c03ed520
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/squiggle-lang/src/rescript/Dummy-TypeScriptingRescript/ForTS/ForTS_InternalValue/ForTS_InternalValue.res
View File

@ -7,6 +7,7 @@ external ivtString_: int = "IvtString"
@module("ForTS_InternalValue_tag") @scope("InternalValueTag") @module("ForTS_InternalValue_tag") @scope("InternalValueTag")
external ivtRecordLike_: int = "IvtRecordLike" external ivtRecordLike_: int = "IvtRecordLike"
@genType
let getTag = (variant: internalValue) => let getTag = (variant: internalValue) =>
switch variant { switch variant {
| IvVoid(_) => ivtVoid_ | IvVoid(_) => ivtVoid_
@ -14,18 +15,21 @@ let getTag = (variant: internalValue) =>
| IvRecordLike(_) => ivtRecordLike_ | IvRecordLike(_) => ivtRecordLike_
} }
@genType
let getVoid = (variant: internalValue): option<internalVoid> => let getVoid = (variant: internalValue): option<internalVoid> =>
switch variant { switch variant {
| IvVoid(v) => Some(v) | IvVoid(v) => Some(v)
| _ => None | _ => None
} }
@genType
let getString = (variant: internalValue): option<string> => let getString = (variant: internalValue): option<string> =>
switch variant { switch variant {
| IvString(s) => Some(s) | IvString(s) => Some(s)
| _ => None | _ => None
} }
@genType
let getRecordLike = (variant: internalValue): option<recordLike> => let getRecordLike = (variant: internalValue): option<recordLike> =>
switch variant { switch variant {
| IvRecordLike(r) => Some(r) | IvRecordLike(r) => Some(r)