我有一组卡片
initialCards :: GameState
initialCards = [[Card s1 r1, Card s2 r2] | s1 <- [minBound .. maxBound]::[Suit], r1 <- [minBound.. maxBound]::[Rank],
s2 <- [minBound .. maxBound]::[Suit], r2 <- [minBound .. maxBound]::[Rank],
s1 /= s2, r1 /= r2]
例如,我想保留等级为 Suit 和 Diamond 的 [Card],我该如何编写代码。