getToken :: Name -> IO (Maybe Token)
getToken name = C.load [Required "bot.config"] >>=
    \config ->
         C.lookup config (T.append name ".token")
getToken :: Name -> IO (Maybe Token)
getToken name = C.load [Required "bot.config"] >>=
    \config ->
         C.lookup config (T.append name ".token")
getToken name = C.load [Required "bot.config"] >>=
    \config ->
         C.lookup config (T.append name ".token")