module Myself where
type Skill = String
data Profile = Profile
{ name :: String
, mainSkills :: [Skill]
}
instance Show Profile where
show p = unlines
$ ("Hi! I'm " ++ name p ++ " and my main skills are:")
: (bulletify <$> mainSkills p)
main :: IO ()
main = print myself
myself :: Profile
myself = Profile "Yus"
[ "Haskell"
, "Ruby"
, "JavaScript"
, "Rails"
, "React"
, "React Native"
]
bulletify :: String -> String
bulletify = ('-' :) . (' ' :)
yusent Goto Github PK
Name: Yusent Chig
Type: User
Company: @buhocontable
Bio: ¯\_(ツ)_/¯
Twitter: yus3nt
Location: Tijuana, B.C. México