Also simplify DF map implementation

src/domain-functions.ts

@@ -13,7 +13,7 @@ import type {
   UnpackDFObject,
   UnpackResult,
 } from './types.ts'
-import { dfResultFromcomposable } from './constructor.ts'
+import { dfResultFromcomposable, toComposable } from './constructor.ts'
 import { toErrorWithMessage } from './composable/errors.ts'
 import { Composable } from './index.ts'
 
@@ -235,13 +235,9 @@ function map<O, R>(
   dfn: DomainFunction<O>,
   mapper: (element: O) => R | Promise<R>,
 ): DomainFunction<R> {
-  return ((input, environment) =>
-    dfResultFromcomposable(
-      A.map(
-        A.composable(() => fromSuccess(dfn)(input, environment)),
-        mapper,
-      ),
-    )()) as DomainFunction<R>
+  return dfResultFromcomposable(
+    A.map(A.composable(fromSuccess(dfn)), mapper),
+  ) as DomainFunction<R>
 }
 
 /**