From 08131be8e0e41265105c1c5a4153cebfd4ad19fe Mon Sep 17 00:00:00 2001
From: Profpatsch <mail@profpatsch.de>
Date: Sun, 5 Jan 2025 14:13:13 +0100
Subject: [PATCH] feat(users/Profpatsch/whatcd-resolver): improve release
 sorting

Change-Id: I4f9ce0c563b21e0cf8dc688e92438e20c103a2de
Reviewed-on: https://cl.tvl.fyi/c/depot/+/12957
Reviewed-by: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
---
 .../whatcd-resolver/src/Redacted.hs           | 23 ++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/users/Profpatsch/whatcd-resolver/src/Redacted.hs b/users/Profpatsch/whatcd-resolver/src/Redacted.hs
index f667dfbcc..ce7654556 100644
--- a/users/Profpatsch/whatcd-resolver/src/Redacted.hs
+++ b/users/Profpatsch/whatcd-resolver/src/Redacted.hs
@@ -388,7 +388,28 @@ newtype ReleaseType = ReleaseType {unReleaseType :: Text}
   deriving stock (Eq, Show)
 
 releaseTypeComparison :: Comparison ReleaseType
-releaseTypeComparison = listIndexComparison [releaseTypeAlbum, releaseTypeSoundtrack, releaseTypeEP, releaseTypeAnthology, releaseTypeCompilation, releaseTypeSingle, releaseTypeLiveAlbum, releaseTypeRemix, releaseTypeBootleg, releaseTypeInterview, releaseTypeMixtape, releaseTypeDemo, releaseTypeConcertRecording, releaseTypeDJMix, releaseTypeUnknown, releaseTypeProducedBy, releaseTypeComposition, releaseTypeRemixedBy, releaseTypeGuestAppearance]
+releaseTypeComparison =
+  listIndexComparison
+    [ releaseTypeAlbum,
+      releaseTypeLiveAlbum,
+      releaseTypeAnthology,
+      releaseTypeSoundtrack,
+      releaseTypeEP,
+      releaseTypeCompilation,
+      releaseTypeSingle,
+      releaseTypeRemix,
+      releaseTypeBootleg,
+      releaseTypeInterview,
+      releaseTypeMixtape,
+      releaseTypeDemo,
+      releaseTypeConcertRecording,
+      releaseTypeDJMix,
+      releaseTypeUnknown,
+      releaseTypeProducedBy,
+      releaseTypeComposition,
+      releaseTypeRemixedBy,
+      releaseTypeGuestAppearance
+    ]
 
 releaseTypeAlbum, releaseTypeSoundtrack, releaseTypeEP, releaseTypeAnthology, releaseTypeCompilation, releaseTypeSingle, releaseTypeLiveAlbum, releaseTypeRemix, releaseTypeBootleg, releaseTypeInterview, releaseTypeMixtape, releaseTypeDemo, releaseTypeConcertRecording, releaseTypeDJMix, releaseTypeUnknown, releaseTypeProducedBy, releaseTypeComposition, releaseTypeRemixedBy, releaseTypeGuestAppearance :: ReleaseType
 releaseTypeAlbum = ReleaseType "Album"