@effect/platform 0.85.2 → 0.86.0

package/src/HttpApiSchema.ts

@@ -7,10 +7,13 @@ import * as Effectable from "effect/Effectable"
 import type { LazyArg } from "effect/Function"
 import { constant, constVoid, dual } from "effect/Function"
 import { globalValue } from "effect/GlobalValue"
+import type * as Option from "effect/Option"
 import { hasProperty } from "effect/Predicate"
 import * as Schema from "effect/Schema"
 import * as AST from "effect/SchemaAST"
 import * as Struct from "effect/Struct"
+import type * as FileSystem from "./FileSystem.js"
+import type * as Multipart_ from "./Multipart.js"
 
 /**
  * @since 1.0.0
@@ -111,14 +114,15 @@ export const getEmptyDecodeable = (ast: AST.AST): boolean =>
  * @since 1.0.0
  * @category annotations
  */
-export const getMultipart = (ast: AST.AST): boolean => getAnnotation<boolean>(ast, AnnotationMultipart) ?? false
+export const getMultipart = (ast: AST.AST): Multipart_.withLimits.Options | undefined =>
+  getAnnotation<Multipart_.withLimits.Options>(ast, AnnotationMultipart)
 
 /**
  * @since 1.0.0
  * @category annotations
  */
-export const getMultipartStream = (ast: AST.AST): boolean =>
-  getAnnotation<boolean>(ast, AnnotationMultipartStream) ?? false
+export const getMultipartStream = (ast: AST.AST): Multipart_.withLimits.Options | undefined =>
+  getAnnotation<Multipart_.withLimits.Options>(ast, AnnotationMultipartStream)
 
 const encodingJson: Encoding = {
   kind: "Json",
@@ -422,9 +426,15 @@ export interface Multipart<S extends Schema.Schema.Any>
  * @since 1.0.0
  * @category multipart
  */
-export const Multipart = <S extends Schema.Schema.Any>(self: S): Multipart<S> =>
+export const Multipart = <S extends Schema.Schema.Any>(self: S, options?: {
+  readonly maxParts?: Option.Option<number> | undefined
+  readonly maxFieldSize?: FileSystem.SizeInput | undefined
+  readonly maxFileSize?: Option.Option<FileSystem.SizeInput> | undefined
+  readonly maxTotalSize?: Option.Option<FileSystem.SizeInput> | undefined
+  readonly fieldMimeTypes?: ReadonlyArray<string> | undefined
+}): Multipart<S> =>
   self.annotations({
-    [AnnotationMultipart]: true
+    [AnnotationMultipart]: options ?? {}
   }) as any
 
 /**
@@ -455,9 +465,15 @@ export interface MultipartStream<S extends Schema.Schema.Any> extends
  * @since 1.0.0
  * @category multipart
  */
-export const MultipartStream = <S extends Schema.Schema.Any>(self: S): MultipartStream<S> =>
+export const MultipartStream = <S extends Schema.Schema.Any>(self: S, options?: {
+  readonly maxParts?: Option.Option<number> | undefined
+  readonly maxFieldSize?: FileSystem.SizeInput | undefined
+  readonly maxFileSize?: Option.Option<FileSystem.SizeInput> | undefined
+  readonly maxTotalSize?: Option.Option<FileSystem.SizeInput> | undefined
+  readonly fieldMimeTypes?: ReadonlyArray<string> | undefined
+}): MultipartStream<S> =>
   self.annotations({
-    [AnnotationMultipartStream]: true
+    [AnnotationMultipartStream]: options ?? {}
   }) as any
 
 const defaultContentType = (encoding: Encoding["kind"]) => {

package/src/HttpIncomingMessage.ts

@@ -1,10 +1,9 @@
 /**
  * @since 1.0.0
  */
+import * as Context from "effect/Context"
 import * as Effect from "effect/Effect"
-import * as FiberRef from "effect/FiberRef"
 import { dual } from "effect/Function"
-import * as Global from "effect/GlobalValue"
 import * as Inspectable from "effect/Inspectable"
 import * as Option from "effect/Option"
 import type * as ParseResult from "effect/ParseResult"
@@ -85,10 +84,9 @@ export const schemaHeaders = <A, I extends Readonly<Record<string, string | unde
  * @since 1.0.0
  * @category fiber refs
  */
-export const maxBodySize: FiberRef.FiberRef<Option.Option<FileSystem.Size>> = Global.globalValue(
-  "@effect/platform/HttpIncomingMessage/maxBodySize",
-  () => FiberRef.unsafeMake(Option.none<FileSystem.Size>())
-)
+export class MaxBodySize extends Context.Reference<MaxBodySize>()("@effect/platform/HttpIncomingMessage/MaxBodySize", {
+  defaultValue: Option.none<FileSystem.Size>
+}) {}
 
 /**
  * @since 1.0.0
@@ -105,7 +103,7 @@ export const withMaxBodySize = dual<
    * @category fiber refs
    */
   <A, E, R>(effect: Effect.Effect<A, E, R>, size: Option.Option<FileSystem.SizeInput>) => Effect.Effect<A, E, R>
->(2, (effect, size) => Effect.locally(effect, maxBodySize, Option.map(size, FileSystem.Size)))
+>(2, (effect, size) => Effect.provideService(effect, MaxBodySize, Option.map(size, FileSystem.Size)))
 
 /**
  * @since 1.0.0

package/src/HttpServerRequest.ts

@@ -27,7 +27,12 @@ export {
    * @since 1.0.0
    * @category fiber refs
    */
-  maxBodySize
+  MaxBodySize,
+  /**
+   * @since 1.0.0
+   * @category fiber refs
+   */
+  withMaxBodySize
 } from "./HttpIncomingMessage.js"
 
 /**