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 / yesod-auth-bcryptdb Goto Github PK
View Code? Open in Web Editor NEWYesod.Auth.BcryptDB plugin
License: MIT License