@prelude/cmp/src/ascending.ts

Cmp module.

import { type Cmp, asc } from './prelude.js'
import type * as Predicate from './predicate.js'

/** Maps comparision function to ascending predicate. */
const ascending: <T>(cmp: Cmp<T>) => Predicate.t<T> =
  <T>(cmp: Cmp<T>) =>
    (a: T, b: T) =>
      cmp(a, b) === asc

export default ascending