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
This commit is contained in:
parent
77aadfa46c
commit
08131be8e0
1 changed files with 22 additions and 1 deletions
|
|
@ -388,7 +388,28 @@ newtype ReleaseType = ReleaseType {unReleaseType :: Text}
|
||||||
deriving stock (Eq, Show)
|
deriving stock (Eq, Show)
|
||||||
|
|
||||||
releaseTypeComparison :: Comparison ReleaseType
|
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, releaseTypeSoundtrack, releaseTypeEP, releaseTypeAnthology, releaseTypeCompilation, releaseTypeSingle, releaseTypeLiveAlbum, releaseTypeRemix, releaseTypeBootleg, releaseTypeInterview, releaseTypeMixtape, releaseTypeDemo, releaseTypeConcertRecording, releaseTypeDJMix, releaseTypeUnknown, releaseTypeProducedBy, releaseTypeComposition, releaseTypeRemixedBy, releaseTypeGuestAppearance :: ReleaseType
|
||||||
releaseTypeAlbum = ReleaseType "Album"
|
releaseTypeAlbum = ReleaseType "Album"
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue