From cc70193aad0b8d50ec151156707ac8938014cd40 Mon Sep 17 00:00:00 2001
From: Phil de Joux <philderbeast@gmail.com>
Date: Sat, 24 Jun 2023 13:41:05 -0400
Subject: [PATCH] Satisfy hlint.

---
 src/Stack/Unpack.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/Unpack.hs b/src/Stack/Unpack.hs
index 090cb52bc3..80ca87bfb3 100644
--- a/src/Stack/Unpack.hs
+++ b/src/Stack/Unpack.hs
@@ -248,7 +248,7 @@ longestUnique ::
      [(PackageName, RawPackageLocationImmutable)]
   -> [(PackageName, RawPackageLocationImmutable)]
 longestUnique xs =
-  L.concat $ L.groupBy (\(_, p1) (_, p2) -> p1 == p2) (L.take 1 $ L.sortBy (flip (comparing fst)) xs)
+  L.concat $ L.groupBy (\(_, p1) (_, p2) -> p1 == p2) (L.take 1 $ L.sortOn (Down . fst) xs)
 
 unpackMessage :: Display a => a -> Path Abs Dir -> [StyleDoc]
 unpackMessage loc dest =