1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

data Programmer = Programmer
  { name :: String,
    alias :: [String],
    location :: String,
    homepage :: String,
    university :: String,
    languages :: [String],
    favorFields :: [String],
    hobbies :: [String]
  }
  deriving (Show)

aboutMe :: Programmer
aboutMe =
  Programmer
    { name = "Eason Huang",
      alias = ["Eason0210", "Aqua"],
      location = "Shanghai",
      homepage = "https://eason0210.github.io",
      university = "ChongQing JiaoTong University",
      languages = ["Haskell", "C++"],
      favorFields = ["Hack Emacs", "Linux OS", "Web"],
      hobbies = ["Reading", "Music", "Play guitar"]
    }