suneettipirneni / discord-mock-server Goto Github PK

class Intro a where
  introduce :: a -> String

data Student = Student { name :: String, age :: Int, major :: String }

instance Intro Student where
  introduce a = "I'm " ++ name a ++ " and I'm " ++ show (age a) ++ " years old, and I am majoring in " ++ major a

me = Student "Suneet" 24 "Computer Vision"

main = do print $ introduce me