Best practices for narrowing down errors for specific treatment

export const retryPolicy = pipe(
  Schedule.exponential(Duration.millis(10)),
  Schedule.compose(Schedule.elapsed()),
  Schedule.whileOutput(Duration.lessThanOrEqualTo(Duration.seconds(10))),
  Schedule.whileInput(Schema.is(HttpError))
)

const HttpError_ = Schema.struct({ _tag: Schema.literal("HttpError") })
export interface HttpError extends Schema.To<typeof HttpError_> {}
export const HttpError: Schema.Schema<HttpError> = Schema.to(HttpError_)

export const fetch200 = (url: string) =>
  Effect.tryCatchPromise(
    () => fetch(url).then((res) => res.status === 200 ? res.json() : Promise.reject()),
    () => identity<HttpError>({ _tag: "HttpError" })
  )