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
Follow
Pinned
Something went wrong, please refresh the page to try again.
If the problem persists, check the GitHub status page or contact support.
If the problem persists, check the GitHub status page or contact support.