artist.hs

data Artist = Artist { name :: Text
            , url :: Text
            , description :: Text
            , imaage :: Text
            , socialMedia :: [SocialMedia]
            } deriving (Show, Eq)

data SocialMedia a = SocialMedia { username :: Text
                   , meta :: Text 
                   } deriving (Show)

data SocialMeediaKind = Bandcamp
                      | Soundcloud
                      | YouTube
                      deriving (Show, Enum, Eq)