アイカツカード.hs。試しに書いてみたけどreadやshowを手書きしたくないわこれ・・・

gistfile1.hs

data GameVersion = Vol1 | Vol2 | Vol3 | Vol4 | Vol5 | Vol6 | Promotion
    deriving Eq

data AppearType = Cute | Cool | Sexy | Pop
    deriving Eq

data CardCategory = Tops | Bottoms | Onepiece | Shoes | Accessory
    deriving Eq

data CardBrand = AngelySugar | FuturingGirl | SpicyAgeha | HappyRainbow
    | LoliGothic | AuroraFantasy | LoveQueen | MagicalToy
    deriving Eq

data CardRarelity = Normal | Rare | PremiumRare | CampaignRare
    deriving Eq

data Card = Card {
    cardId :: Text,
    cardEdition ::-
    cardName :: Text,
    cardType :: Maybe AppearType,
    cardCategory :: CardCategory,
    cardBrand :: Maybe CardBrand,
    cardRarelity :: Maybe CardRarelity,
    cardStars :: Int,
    cardDressAppear :: Maybe Text,
    cardAppearPoint :: Int,
    cardEffect :: Maybe Text
    cardSources :: [(Text, Maybe Text)]
    }