Request for Help with Unexpected Function Behavior

const CollectionArgsTag = Context.Tag<CollectionArgs>();

export const findOne = <TSchema extends Document = Document>(
  filter: Filter<TSchema>
) =>
  Effect.flatMap(Database.DatabaseTag, (db) =>
    Effect.flatMap(CollectionArgsTag, (collectionArgs) =>
      Effect.tryCatchPromise(
        () => db.collection<TSchema>(...collectionArgs).findOne(filter),
        (error) => {
          if (error instanceof MongoInvalidArgumentError) {
            return new MongoInvalidArgumentTaggedError(error);
          }

          throw error;
        }
      )
    )
  );

const findOneConcreteDocument = flow(
  findOne<ConcreteDocument>,
  Effect.provideService(CollectionArgsTag, ["concretes"])
);

const program = pipe(
  findOneConcreteDocument({ _id: "whatever" }),
  Effect.provideSomeLayer(Database.MongoDbImpl),
  Effect.runPromise
);

2023-05-14T22:48:37.776Z    d232448b-220c-4f3f-a907-7a4d7361fdba    INFO    TagImpl2 {
  _tag: 'Tag',
  i0: undefined,
  i1: undefined,
  i2: undefined,
  trace: undefined,
  [Symbol(@effect/io/Effect)]: { _R: [Function: _R], _E: [Function: _E], _A: [Function: _A] }
}