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 = ('-' :) . (' ' :)
🏡
Working from home
Block or Report
Block or report yusent
Report abuse
Contact GitHub support about this user’s behavior. Learn more about reporting abuse.
Report abusePinned Loading
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.