traverse

import { traverse, pair } from "./pair.ts";
import { some, ApplicableOption, fromPredicate } from "./option.ts";
import { pipe } from "./fn.ts";

const traverseOption = traverse(ApplicableOption);
const startsWithB = fromPredicate(
  (name: string) => name.startsWith("B")
);

const result1 = pipe(
  pair("Brandon", 37),
  traverseOption(startsWithB),
); // { tag: "Some", value: ["Brandon", 37] }

const result2 = pipe(
  pair("Alice", 37),
  traverseOption(startsWithB),
); // { tag: "None" }