From 8bc1be2862d240f3003163bb009c663ff962983f Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 18 Aug 2016 05:45:40 -0400
Subject: [PATCH] Sort package names case-insensitively

---
 src/packages.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/packages.rkt b/src/packages.rkt
index dac9110..2291957 100644
--- a/src/packages.rkt
+++ b/src/packages.rkt
@@ -259,7 +259,7 @@
 (define (next-fetch-deadline) (manager-rpc 'next-fetch-deadline))
 
 (define (sort-package-names names)
-  (sort names (lambda (a b) (string<? (symbol->string a) (symbol->string b)))))
+  (sort names (lambda (a b) (string-ci<? (symbol->string a) (symbol->string b)))))
 
 (define (sorted-package-names)
   (sort-package-names (all-package-names)))