From 827ec75fbbf3d125a680b0b74e10f0c5e6beb567 Mon Sep 17 00:00:00 2001
From: Haskell Camargo <marcelocamargo@linuxmail.org>
Date: Sun, 14 Jun 2015 23:56:22 -0300
Subject: [PATCH] sortBy should return A[] instead of A

---
 prelude-ls/prelude-ls-tests.ts | 36 ++++++++++++++++++++++------------
 prelude-ls/prelude-ls.d.ts     |  4 ++--
 2 files changed, 25 insertions(+), 15 deletions(-)

diff --git a/prelude-ls/prelude-ls-tests.ts b/prelude-ls/prelude-ls-tests.ts
index 5bc034bc4..c04fb2277 100644
--- a/prelude-ls/prelude-ls-tests.ts
+++ b/prelude-ls/prelude-ls-tests.ts
@@ -107,28 +107,31 @@ prelude.intersection([1, 2, 3], [2, 1, 3], [3, 1, 2]); //=> [1, 2, 3]
 var unionRes: Array<number> =
   prelude.union([1, 5, 7], [3, 5], []); //=> [1, 5, 7, 3]
 
-// --- UNION ---
-
-prelude.countBy(prelude.floor, [4.2, 6.1, 6.4]);         //=> {4: 1, 6: 2}
+var countByRes: Object = prelude.countBy(prelude.floor, [4.2, 6.1, 6.4]);
+//=> {4: 1, 6: 2}
 prelude.countBy(x => x.length, ["one", "two", "three"]); //=> {3: 2, 5: 1}
 
-prelude.groupBy(prelude.floor, [4.2, 6.1, 6.4]);         //=> {4: [4.2], 6: [6.1, 6.4]}
-prelude.groupBy(x => x.length, ["one", "two", "three"]); //=> {3: ["one", "two"], 5: ["three"]}
+var groupByRes: Object = prelude.groupBy(prelude.floor, [4.2, 6.1, 6.4]);
+//=> {4: [4.2], 6: [6.1, 6.4]}
+prelude.groupBy(x => x.length, ["one", "two", "three"]);
+//=> {3: ["one", "two"], 5: ["three"]}
 
-prelude.andList([true, 2 + 2 == 4]);  //=> true
+var andListRes: boolean = prelude.andList([true, 2 + 2 == 4]);  //=> true
 prelude.andList([true, true, false]); //=> false
 prelude.andList([]);                  //=> true
 
-prelude.orList([false, false, true, false]); //=> true
+var orListRes: boolean = prelude.orList([false, false, true, false]); //=> true
 prelude.orList([]);                          //=> false
 
-prelude.any(prelude.even, [3, 5, 7, 8, 9]); //=> true
+var anyRes: boolean = prelude.any(prelude.even, [3, 5, 7, 8, 9]); //=> true
 prelude.any(prelude.even, []);              //=> false
 
-prelude.all(prelude.isType("String"), ["ha", "ma", "la"]); //=> true
+var allRes: boolean = prelude.all(prelude.isType("String"), ["ha", "ma", "la"]);
+//=> true
 prelude.all(prelude.isType("String"), []);                 //=> true
 
-prelude.sort([3, 1, 5, 2, 4, 6]); //=> [1, 2, 3, 4, 5, 6]
+var sortRes: Array<number> = prelude.sort([3, 1, 5, 2, 4, 6]);
+//=> [1, 2, 3, 4, 5, 6]
 
 var f = (x: string) => (y: string) =>
     x.length > y.length ?
@@ -137,11 +140,18 @@ var f = (x: string) => (y: string) =>
       -1
   :
       0;
-prelude.sortWith(f, ["three", "one", "two"]); //=> ["one", "two", "three"]
 
-prelude.sortBy(x => x.length, ["there", "hey", "a", "ha"]); //=> ["a", "ha", "hey", "there"]
+var sortWithRes: Array<string> = prelude.sortWith(f, ["three", "one", "two"]);
+//=> ["one", "two", "three"]
 
-var table = [{
+var sortByRes: Array<string> =
+  prelude.sortBy(x => x.length, ["there", "hey", "a", "ha"]);
+  //=> ["a", "ha", "hey", "there"]
+
+var table: Array<{
+  id: number,
+  name: string
+}> = [{
   id: 1,
   name: "george"
 }, {
diff --git a/prelude-ls/prelude-ls.d.ts b/prelude-ls/prelude-ls.d.ts
index fde6ed157..26c1890d4 100644
--- a/prelude-ls/prelude-ls.d.ts
+++ b/prelude-ls/prelude-ls.d.ts
@@ -75,8 +75,8 @@ declare module "prelude-ls" {
 		export function sort<A>(xs: A[]): A[];
 		export function sortWith<A>(f: (x: A) => (y: A) => number): (xs: A[]) => A[];
 		export function sortWith<A>(f: (x: A) => (y: A) => number, xs: A[]): A[];
-		export function sortBy<A, B>(f: (x: A) => B): (xs: A[]) => A;
-		export function sortBy<A, B>(f: (x: A) => B, xs: A[]): A;
+		export function sortBy<A, B>(f: (x: A) => B): (xs: A[]) => A[];
+		export function sortBy<A, B>(f: (x: A) => B, xs: A[]): A[];
 		export function sum(xs: number[]): number[];
 		export function product(xs: number[]): number[];
 		export function mean(xs: number[]): number[];