Satisfy hlint.

commercialhaskell · Jun 29, 2023 · cbdad84 · cbdad84
1 parent a07b402
commit cbdad84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 =