fix: issue sorting using 2-ary comparators

changelog.md

@@ -1,5 +1,13 @@
 # Changelog
 
+## [0.25.2]
+
+- Fix `List.Sort` to work with 2-ary comparators.
+
+## [0.25.1]
+
+- Fix packaging issue.
+
 ## [0.25.0]
 
 - Reify `NaturalNumber.Modulo` and `NaturalNumber.ModuloBy` to value-level functions.

pkg/package.json

@@ -1,6 +1,6 @@
 {
   "name": "hkt-toolbelt",
-  "version": "0.25.0",
+  "version": "0.25.2",
   "description": "Functional and composable type utilities",
   "types": "./index.d.ts",
   "main": "./index.js",

src/list/sort.test.ts

@@ -1,4 +1,13 @@
-import { $, Test, List, String, Function } from '..'
+import {
+  $,
+  Test,
+  List,
+  String,
+  Function,
+  Kind,
+  NaturalNumber,
+  Integer
+} from '..'
 
 type Sort_Spec = [
   /**
@@ -46,3 +55,31 @@ it('should sort a list of strings by length', () => {
 it('should sort an empty list', () => {
   expect(List.sort(Function.identity)([])).toEqual([])
 })
+
+it('can sort complicated functions on lists', () => {
+  /**
+   * Sort descending by number, then ascending by string.
+   */
+  const mySort = List.sort(
+    List.compareBy([
+      Kind.lazyPipe([NaturalNumber.compare, Integer.negate]),
+      String.compare
+    ])
+  )
+
+  const result = mySort([
+    [1, 'foo'],
+    [2, 'bar'],
+    [3, 'baz'],
+    [1, 'qux'],
+    [3, 'abc']
+  ])
+
+  expect(result).toEqual([
+    [3, 'abc'],
+    [3, 'baz'],
+    [2, 'bar'],
+    [1, 'foo'],
+    [1, 'qux']
+  ])
+})

src/list/sort.ts

@@ -158,7 +158,7 @@ export const sort = ((f: Function.Function) => (values: unknown[]) => {
     const result = f(a as never) as number | Function.Function
 
     return typeof result === 'function'
-      ? (result(a as never) as number)
+      ? (result(b as never) as number)
       : result - (f(b as never) as number)
   })