WIP - toComposable (todo: write some tests)

seasonedcc · Nov 15, 2023 · 974ea11 · 974ea11
1 parent dd8e621
commit 974ea11
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/constructor.ts b/src/constructor.ts
@@ -5,7 +5,7 @@ import type {
   ParserSchema,
   SchemaError,
 } from './types.ts'
-import { composable, Composable } from './composable/index.ts'
+import { Composable, composable } from './composable/index.ts'
 
 function dfResultFromcomposable<T extends Composable, R>(fn: T) {
   return (async (...args) => {
@@ -51,6 +51,12 @@ function makeDomainFunction<I, E>(
   }
 }
 
+function toComposable<O, DF extends DomainFunction<O>>(df: DF) {
+  return df as unknown as Composable<
+    (input: unknown, environment: unknown) => O
+  >
+}
+
 function fromComposable<I, E, A extends Composable>(
   fn: A,
   inputSchema?: ParserSchema<I>,
@@ -105,5 +111,5 @@ const undefinedSchema: ParserSchema<undefined> = {
   },
 }
 
-export { dfResultFromcomposable, makeDomainFunction, makeDomainFunction as mdf }
+export { dfResultFromcomposable, makeDomainFunction, makeDomainFunction as mdf, fromComposable, toComposable }