Implementing `Schema.DurationFromString` with `Duration.decode` and `ParseResult` error handling

export const DurationFromString = S.transformOrFail(
  S.string,
  S.DurationFromSelf,
  (value, _, ast) =>
    ParseResult.try({
      try: () => Duration.decode(value as Duration.DurationInput),
      catch: (error) =>
        ParseResult.type(ast, value, "String is not valid DurationInput"),
    }),
  (duration) => ParseResult.succeed(`${Duration.toMillis(duration)} millis`)
);