parametric types for typescript

packages/squiggle-lang/__tests__/ReducerProject/ReducerProject_tutorial_test.res

@@ -9,7 +9,7 @@ open Expect.Operators
 
 describe("ReducerProject Tutorial", () => {
   describe("Single source", () => {
-/*
+    /*
 Case "Running a single source". 
 */
     test("run", () => {

packages/squiggle-lang/src/rescript/Dummy-TypeScriptingRescript/ForTS/ForTS_MyProject.res

@@ -1,4 +1,5 @@
 open ForTS_Types
 
 @genType
-let getResult = (_p: myProject): option<result_internalValue> => My_ErrorValue.EError->Error->Some
+let getResult = (_p: myProject): option<result_<internalValue, errorValue>> =>
+  My_ErrorValue.EError->Error->Some

packages/squiggle-lang/src/rescript/Dummy-TypeScriptingRescript/ForTS/ForTS_Result.res

@@ -0,0 +1,18 @@
+open ForTS_Types
+
+@genType let isError = (r: result_<'a, 'e>): bool => Belt.Result.isError(r)
+@genType let isOk = (r: result_<'a, 'e>): bool => Belt.Result.isOk(r)
+
+@genType
+let getError = (r: result_<'a, 'e>): option<'e> =>
+  switch r {
+  | Ok(_) => None
+  | Error(e) => Some(e)
+  }
+
+@genType
+let getValue = (r: result_<'a, 'e>): option<'a> =>
+  switch r {
+  | Ok(v) => Some(v)
+  | Error(_) => None
+  }

packages/squiggle-lang/src/rescript/Dummy-TypeScriptingRescript/ForTS/ForTS_Result/ForTS_Result_InternalValue.res

@@ -1,18 +0,0 @@
-open ForTS_Types
-
-@genType let isError = (r: result_internalValue): bool => Belt.Result.isError(r)
-@genType let isOk = (r: result_internalValue): bool => Belt.Result.isOk(r)
-
-@genType
-let getError = (r: result_internalValue): option<errorValue> =>
-  switch r {
-  | Ok(_) => None
-  | Error(e) => Some(e)
-  }
-
-@genType
-let getValue = (r: result_internalValue): option<internalValue> =>
-  switch r {
-  | Ok(v) => Some(v)
-  | Error(_) => None
-  }

packages/squiggle-lang/src/rescript/Dummy-TypeScriptingRescript/ForTS/ForTS_Types.res

@@ -6,7 +6,7 @@
 @genType.opaque type recordLike = MyInterface_InternalValue_RecordLike.t
 @genType.opaque type internalVoid = int
 @genType.opaque type errorValue = My_ErrorValue.t
-@genType.opaque type result_internalValue = result<internalValue, errorValue> // There has to be a type for each result permutation
+@genType.opaque type result_<'a, 'e> = result<'a, 'e> // There has to be a type for each result permutation
 @genType.opaque type myProject = {name: string}
 
 //There is no need to map option<> as it becomes nullable